this is prolog, not perl