Programmet upptog : Prolog,