(command.CommandList
  children: [
    (C {(Id.KW_Set set)} {(-o)} {(nounset)})
    (C {(Id.KW_Set set)} {(-o)} {(pipefail)})
    (C {(Id.KW_Set set)} {(-o)} {(errexit)})
    (command.ShFunction
      name: install
      body: 
        (command.BraceGroup
          children: [
            (C {(sudo)} {(apt)} {(install)} {(vagrant)})
            (C {(sudo)} {(apt)} {(install)} {(virtualbox)})
          ]
        )
    )
    (command.ShFunction
      name: archlinux
      body: 
        (command.BraceGroup
          children: [(C {(vagrant)} {(init)} {(archlinux/archlinux)}) (C {(vagrant)} {(up)})]
        )
    )
    (C {(DQ ($ Id.VSub_At '$@'))})
  ]
)