Prolog day 2 progress - mostly cheating