Scanf.scanf "%c %c %c" (fun c1 c2 c3 ->
    print_endline @@
    match c2 with
    | '2' -> "4" 
    | '3' -> "1" 
    | _   -> "14" 
)