open Printf

let vtk = "test.vtk";;
let pgm = "test.pgm";;

let oc = open_out pgm;;

fprintf oc "P2\n%d %d\n%d\n" 5 5 255;;