Minimaliste ? peut mieux faire :P


open Printf
open Unix

let rec server input output =
fprintf output "%s\n%!"
(try Scanf.fscanf input " %d" (fun x -> string_of_int (x * x))
...