let () =
  try
    let modl = Spice.parse "fun main(x) { val y = x * 2 val z = if(y > x) y else 1 }" in
    Format.fprintf Format.std_formatter "%a\n" Spice.Syn.pp_modl modl
  with Spice.Error.Error err ->
    Format.fprintf Format.err_formatter "error: %a\n" Spice.Error.pp err