RosettaCodeData/Task/Least-common-multiple/Run-BASIC/least-common-multiple.run

print lcm(22,44)

function lcm(m,n)
 while n
   t = m
   m = n
   n = t mod n
 wend
lcm = m
end function