prolog - Amzi Prolog が呼び出されたときに値を渡さない

Question

/* MAIN PROGRAM */

main:- welcome.

welcome:-
    write('************************************************'),nl,
    write('*   Welcome to my Simple Calculator   *'),nl,
    write('************************************************'),nl,nl,
    write('For every input you enter, please followed by a full stop[.]'),
    numbers.

numbers:-
    nl,nl,write('First number: '),
    read(FIRST),nl,
    write('Second number: '),
    read(SECOND),nl,
    operation.

operation:-
    nl,write('[1]- Addition.'), nl,
    nl,write('[2]- Subtraction.'),nl,
    nl,write('[3]- Multiplication.'),nl,
    nl,write('[4]- Division.'),nl,
    nl,write('[5]- Exit.'),nl,
    nl,write(':>'),
    read(ANS1),nl,
    set_op(ANS1).

set_op(1):-
    write(FIRST),write(SECOND),
    SUM is FIRST + SECOND,
    write(SUM).

簡単な計算プログラムを実行するのに問題があります。何らかの理由で、呼び出されたときに値ではなく変数のアドレスのみを渡します。誰かが私の伝票を指摘していただければ幸いです。ありがとうございました。