let pzf m f = print_float f; print_string (" "^m^"\n")
and pza m a = print_string "[| "; let r = Array.length a in for i = 0 to r-2 do
   print_float a.(i); if i < r then print_string "; " done;
   if r > 0 then print_float a.(r-1); print_string " |] "; print_string (m^"\n")
and pzi m i = print_int i; print_string (" "^m^"\n")
and pzl m l = print_char '['; List.iter (fun i -> print_int i; print_string "; ") l;
   print_char ']'; print_string (" "^m^"\n");;
let zzf m f = pzf m f; f
and zza m a = pza m a; a
and zzi m i = pzi m i; i
and zzl m l = pzl m l; l
and pzm m mt = for j = 0 to (Array.length mt) - 1 do pza m mt.(j) done
let zzm m mt = pzm m mt; mt;;