(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'mypath='> name:mypath)
          op: assign_op.Equal
          rhs: 
            {
              (command_sub
                left_token: <Id.Left_Backtick '`'>
                child: (C {<dirname>} {($ Id.VSub_Number 0)})
                right: <Id.Backtick_Right '`'>
              )
            }
          spids: [115]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'infile='> name:infile)
          op: assign_op.Equal
          rhs: {<'/tmp/'> ($ Id.VSub_Dollar '$')}
          spids: [125]
        )
      ]
      redirects: []
    )
    (command.Simple
      words: [{<echo>} {(SQ <fcode-version1>)}]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {($ Id.VSub_DollarName infile)}
        )
      ]
      more_env: []
      do_fork: T
    )
    (command.Simple
      words: [{<cat>} {($ Id.VSub_Number 1)}]
      redirects: [
        (redir
          op: <Id.Redir_DGreat '>>'>
          loc: (redir_loc.Fd fd:1)
          arg: {($ Id.VSub_DollarName infile)}
        )
      ]
      more_env: []
      do_fork: T
    )
    (command.Simple
      words: [{<echo>} {(SQ <end0>)}]
      redirects: [
        (redir
          op: <Id.Redir_DGreat '>>'>
          loc: (redir_loc.Fd fd:1)
          arg: {($ Id.VSub_DollarName infile)}
        )
      ]
      more_env: []
      do_fork: T
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'outfile='> name:outfile)
          op: assign_op.Equal
          rhs: 
            {
              (command_sub
                left_token: <Id.Left_Backtick '`'>
                child: (C {<basename>} {($ Id.VSub_Number 1)} {<.fth>})
                right: <Id.Backtick_Right '`'>
              ) <.fcode>
            }
          spids: [157]
        )
      ]
      redirects: []
    )
    (command.Subshell
      child: 
        (command.CommandList
          children: [
            (C {<unset>} {<LD_PRELOAD_32>} {<LD_PRELOAD_64>})
            (C {<unset>} {<LD_BIND_NOW_32>} {<LD_BIND_NOW_64>})
            (C {<set>} {<-x>})
            (command.Simple
              words: [
                {(${ Id.VSub_Name mypath) <'/forth'>}
                {(${ Id.VSub_Name mypath) <'/tokenize.exe'>}
                {<-s>}
                {
                  (DQ <'aout-header? off silent? on tokenize '> ($ Id.VSub_DollarName infile) <' '> 
                    ($ Id.VSub_DollarName outfile)
                  )
                }
              ]
              redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<'/dev/null'>})]
              more_env: [
                (env_pair
                  name: LD_PRELOAD
                  val: {(${ Id.VSub_Name mypath) <'/forth_preload.so.1'>}
                  spids: [191]
                )
                (env_pair name:LD_BIND_NOW val:{<1>} spids:[197])
              ]
              do_fork: T
            )
          ]
        )
      redirects: []
    )
    (C {<rm>} {($ Id.VSub_DollarName infile)})
  ]
)