pp.ml

open Sexpr
open Main

let need_newline = ref false

let filter o x =
  if !need_newline
  then print_newline ();
  print_sexpr o x;
  need_newline := true

let () =
  main (fun o xs -> List.iter (filter o) xs)