Day2 first exercise, prolog takes some getting used to :)