4 lines
98 B
Text
4 lines
98 B
Text
let () =
|
|
let oc = open_out "/dev/lp0" in
|
|
output_string oc "Hello world!\n";
|
|
close_out oc ;;
|