Prolog

[nodeli]

Здравствуйте!
помогите дописать предикат для ввода списка целых чисел до символа перехода на новую строку. Числа разделяются одним или несколькими пробелами.
?-ввод_списка(L).
1 2 3 4 % вводит пользователь
L=[1,2,3,4]

есть вот такой код:
'программа 1':-write('введите строку'),read(X),nl,
write("введите строку"),nl,
write(X),nl.

как сделать, чтобы список вывелся в таком виде: L=[1,2,3,4]?