(command.CommandList
  children: [
    (C {<atf_test_case>} {<across>})
    (command.ShFunction
      name: across_head
      body: 
        (BraceGroup
          children: [
            (C {<atf_set>} {(DQ <descr>)} {(DQ <'Format columns in round-robin order with pr -a'>)})
          ]
        )
    )
    (command.ShFunction
      name: across_body
      body: 
        (BraceGroup
          children: [
            (C {<atf_check>} {<-s>} {<Id.ControlFlow_Exit exit> <Id.Lit_Colon ':'> <0>} {<-o>} 
              {<file> <Id.Lit_Colon ':'> 
                (command_sub
                  left_token: <Id.Left_DollarParen '$('>
                  child: (C {<atf_get_srcdir>})
                ) <'/across.out'>
              } {<-x>} 
              {
                (DQ <'pr -t -a -2 '> 
                  (command_sub
                    left_token: <Id.Left_DollarParen '$('>
                    child: (C {<atf_get_srcdir>})
                  ) <'/other.in'>
                )
              }
            )
          ]
        )
    )
    (C {<atf_test_case>} {<merge>})
    (command.ShFunction
      name: merge_head
      body: 
        (BraceGroup
          children: [(C {<atf_set>} {(DQ <descr>)} {(DQ <'Merge two files with pr -m'>)})]
        )
    )
    (command.ShFunction
      name: merge_body
      body: 
        (BraceGroup
          children: [
            (C {<atf_check>} {<-s>} {<ignore>} {<-o>} 
              {<file> <Id.Lit_Colon ':'> 
                (command_sub
                  left_token: <Id.Left_DollarParen '$('>
                  child: (C {<atf_get_srcdir>})
                ) <'/merge.out'>
              } {<pr>} {<-t>} {<-m>} 
              {(command_sub left_token:<Id.Left_DollarParen '$('> child:(C {<atf_get_srcdir>})) 
                <'/d_basic.in'>
              } {(command_sub left_token:<Id.Left_DollarParen '$('> child:(C {<atf_get_srcdir>})) <'/other.in'>}
            )
          ]
        )
    )
    (C {<atf_test_case>} {<threecol>})
    (command.ShFunction
      name: threecol_head
      body: 
        (BraceGroup
          children: [(C {<atf_set>} {(DQ <descr>)} {(DQ <'Format a file with three columns'>)})]
        )
    )
    (command.ShFunction
      name: threecol_body
      body: 
        (BraceGroup
          children: [
            (C {<atf_check>} {<-s>} {<ignore>} {<-o>} 
              {<file> <Id.Lit_Colon ':'> 
                (command_sub
                  left_token: <Id.Left_DollarParen '$('>
                  child: (C {<atf_get_srcdir>})
                ) <'/threecol.out'>
              } {<pr>} {<-t>} {<-3>} 
              {(command_sub left_token:<Id.Left_DollarParen '$('> child:(C {<atf_get_srcdir>})) 
                <'/other.in'>
              }
            )
          ]
        )
    )
    (command.ShFunction
      name: atf_init_test_cases
      body: 
        (BraceGroup
          children: [
            (C {<atf_add_test_case>} {<across>})
            (C {<atf_add_test_case>} {<merge>})
            (C {<atf_add_test_case>} {<threecol>})
          ]
        )
    )
  ]
)