Prolog Program to Develop a Mini Telephone Directory

predicates
    reference(symbol, symbol)

goal
        write("Please type a name:"),
        readln(Name),
        reference(Name, Phone_No),
        write("The phone no is", Phone_No), n1,
    
clauses
        reference("Alex", "+91-9365277205").
        reference("Robert", "+01-5361245780").
        reference("Micky", "+91-9005289205").
        reference("Rose", "+01-2365965720").