Prolog Program to Develop a Piano to Listen Tones on Your Computer

predicates
piano
tone(char, integer)
goal
piano
clauses
piano:-
readchar(note), tone(Note, Freq), sound(S, Freq), piano.
tone('a', 131), tone('w', 139).tone('s', 147)
tone('d', 165), tone('e', 156).tone('f', 175)
tone('t', 185), tone('g', 196).tone('y', 208)
tone('h', 220), tone('u', 233).tone('j', 247)
tone('k', 262),
tone(_, 5000),