(CommandList
  children: [
    (C {(echo)} {(DQ ("! Generated automatically.  DO NOT EDIT!"))})
    (C {(echo)})
    (C {(echo)} {(DQ ("  include 'fftw3.f03'"))})
    (C {(echo)})
    (Pipeline
      children: [
        (SimpleCommand
          words: [
            {(perl)}
            {(-pe)}
            {
              (SQ 
                <
"s/#define +([A-Z0-9_]+) +\\(([+-]?[0-9]+)U?\\)/\\n  integer\\(C_INTPTR_T\\), parameter :: \\1 = \\2\\n/g"
                >
              )
            }
          ]
          redirects: [(Redir op_id:Redir_Less fd:-1 arg_word:{(fftw3-mpi.h)} spids:[71])]
        )
        (C {(grep)} {(SQ <"integer(C_INTPTR_T)">)})
      ]
      negated: False
    )
    (Pipeline
      children: [
        (SimpleCommand
          words: [
            {(perl)}
            {(-pe)}
            {
              (SQ 
                <
"if (/#define +([A-Z0-9_]+) +\\(([0-9]+)U? *<< *([0-9]+)\\)/) { print \"\\n  integer\\(C_INT\\), parameter :: $1 = \",$2 << $3,\"\\n\"; }"
                >
              )
            }
          ]
          redirects: [(Redir op_id:Redir_Less fd:-1 arg_word:{(fftw3-mpi.h)} spids:[91])]
        )
        (C {(grep)} {(SQ <"integer(C_INT)">)})
      ]
      negated: False
    )
    (ForEach
      iter_name: p
      iter_words: [{(DQ )} {(DQ (f))} {(DQ (l))}]
      do_arg_iter: False
      body: 
        (DoGroup
          children: [
            (C {(echo)})
            (SimpleCommand
              words: [{(cat)}]
              redirects: [
                (HereDoc
                  op_id: Redir_DLess
                  fd: -1
                  body: 
                    {
                      (DQ ("  type, bind(C) :: fftw") (${ VSub_Name p) ("_mpi_ddim\n") 
                        ("     integer(C_INTPTR_T) n, ib, ob\n") ("  end type fftw") (${ VSub_Name p) ("_mpi_ddim\n")
                      )
                    }
                  do_expansion: True
                  here_end: EOF
                  was_filled: True
                  spids: [133]
                )
              ]
            )
            (C {(echo)})
            (C {(echo)} {(DQ ("  interface"))})
            (Pipeline
              children: [
                (C {(grep)} {(-v)} {(SQ <mpi.h>)} {(fftw3-mpi.h)})
                (C {(gcc)} {(-E)} {(-)})
                (C {(grep)} {(DQ (fftw) (${ VSub_Name p) (_mpi_init))})
                (C {(tr)} {(SQ <";">)} {(SQ <"\\n">)})
                (C {(perl)} {(../api/genf03.pl)})
              ]
              negated: False
            )
            (C {(echo)} {(DQ ("  end interface"))})
          ]
          spids: [125 213]
        )
      spids: [112 123]
    )
  ]
)