fun show (l) =
  match (l) { N -> nothing | C (x, xs) -> print_string (x); show (xs) }

let test =
  show (C ("This", C (" test is ", C ("OK", C (".\n.", N)))))