Programmet upptager : En prolog,