RosettaCodeData/Task/Least-common-multiple/Scheme/least-common-multiple.ss