работа с файлом в prolog

Народ, помогите с задачкой на turboprolog. Надо сдать в ближайшее время, а я не могу ее сделать. Это последняя лабораторка. Очень прошу помощи. Задание такое:
Создайте предикат, дополняющий все строки, хранящиеся в файле, символом "*" до самой длинной строки.