repeat 500[apply[pr(if and ?+?2>?3(?-?2)*(?-?2)