Here's a collage of some of my favourite bits. (I've inlined some functions, but this is nearly as readable as the actual code.)

  open Option Parse Scan;
  (maybe embedded --| minus -- name >> (fn arg => ((if ! testing then #2 arg |> Output.writeln else (); #1 #> curry getOpt) arg (implode [])))) -- command_name "supply" >> (op ^)

What does this say?