let print f = f ()
let arg value () cont = cont (Format.printf "%s\n" value)
let stop a = a

let () =
  print stop;
  print (arg "hello") (arg "there") stop;

(* use a prefix operator for arg *)
let (!) = arg

let () =
  print !"hello" !"hi" !"its" !"me" stop