Programmet upptager en prolog,