(command.CommandList
  children: [
    (C {<atf_test_case>} {<s_flag>})
    (command.ShFunction
      name: s_flag_head
      body: (BraceGroup children:[(C {<atf_set>} {(DQ <descr>)} {(DQ <'Check -s flag'>)})])
    )
    (command.ShFunction
      name: s_flag_body
      body: 
        (BraceGroup
          children: [
            (command.Simple
              words: [{<cat>}]
              redirects: [
                (redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<input>})
                (redir
                  op: <Id.Redir_DLess '<<'>
                  loc: (redir_loc.Fd fd:0)
                  arg: 
                    (redir_param.HereDoc
                      here_begin: {<EOF>}
                      here_end_span_id: 122
                      stdin_parts: [<'a,b,c,d\n'> <'b,c,d\n'> <'c,d\n'> <'d\n'>]
                    )
                )
              ]
              do_fork: T
            )
            (command.Simple
              words: [
                {<atf_check>}
                {<-o>}
                {<inline> <Id.Lit_Colon ':'> (SQ <'a\\nb\\nc\\n'>)}
                {<cut>}
                {<-d> <Id.Lit_Comma ','>}
                {<-f>}
                {<1>}
                {<-s>}
              ]
              redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<input>})]
              do_fork: T
            )
            (command.Simple
              words: [
                {<atf_check>}
                {<-o>}
                {<inline> <Id.Lit_Colon ':'> (SQ <'d\\n\\n\\n'>)}
                {<cut>}
                {<-d> <Id.Lit_Comma ','>}
                {<-f>}
                {<4>}
                {<-s>}
              ]
              redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<input>})]
              do_fork: T
            )
            (command.Simple
              words: [
                {<atf_check>}
                {<-o>}
                {<inline> <Id.Lit_Colon ':'> (SQ <'a,b,\\nb,\\n\\n'>)}
                {<cut>}
                {<-d>}
                {(SQ <c>)}
                {<-f>}
                {<1>}
                {<-s>}
              ]
              redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<input>})]
              do_fork: T
            )
            (command.Simple
              words: [{<atf_check>} {<-o>} {<empty>} {<cut>} {<-d> (SQ <'!'>)} {<-f>} {<1>} {<-s>}]
              redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<input>})]
              do_fork: T
            )
          ]
        )
    )
    (command.ShFunction
      name: atf_init_test_cases
      body: (BraceGroup children:[(C {<atf_add_test_case>} {<s_flag>})])
    )
  ]
)