(CommandList
  children: [
    (C {(echo)} {(DQ ('*** CLEAN BEGIN ***'))})
    (C {(echo)} {(DQ ('Cleaning up the main work area. This may take a while...'))})
    (C {(rm)} {(-rf)} {(work)})
    (C {(mkdir)} {(work)})
    (C {(mkdir)} {(-p)} {(source)})
    (C {(echo)} {(DQ ('*** CLEAN END ***'))})
  ]
)