простое слово найдено там, где ожидал оператор

Я новичок в Perl, и я возился с ним. Я нашел этот код в Интернете. Вот фрагмент кода:

82 process_input(q,[]).
83 process_input(n,Task) :- toptask(Task), set_new_threshold.
84 process_input(s,Task) :- suggest_task(T),
85         apply(addtoagenda,T),toptask(Task).
86 process_input(x,Task) :- print('not yet implemented'),nl,toptask(Task).
87 process_input(i,Task) :- user_task,toptask(Task).

И я получаю эту ошибку: Обнаружено простое слово там, где ожидался оператор, рядом со строкой 83 "process_input (n, Task". Может быть неконтролируемая многострочная строка, начинающаяся со строки 82.