add script in prolog: LCM/GCD