let print_student_light (hpr:string -> unit) s = let name = cut_string_to_length "" s.name name_length in let surn = cut_string_to_length "" s.pren pren_length in hpr (Printf.sprintf "%s %s" name surn)