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").