value print_record = fun r -> do {
    Array.iteri print_field r;
    print_newline ()
}