let add x y = x + y

let () =
    let age = ref 0 and
    name = ref "" in

    print_string ( "what's your name? " );
    name := read_line ();

    print_string "what's your age? ";
    age := int_of_string (read_line ());

    print_endline (
        "hello " ^ !name ^
        " i see you are " ^
        ( string_of_int !age ) ^ " years old!"
    );

    if (!age<18) then
        print_endline ( "so you are a minor!" ) else
        print_endline ( "why you are not in the school?" );