let main2 _input =
print_endline "boop"
let main = function
| [input] -> main2 input
| _ -> failwith "usage: $0 1 infile"