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)