# do not touch the next four lines
q="'"
for i in *.pl
do  echo ":- load_files([${q}"$i"${q}],[silent(true),if(changed)])."
done > .loads

# here is code that loads everything and calls main.
swipl -f .loads -g main