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),