/*

  Problem 5
  """
  2520 is the smallest number that can be divided by each of the numbers from 
  1 to 10 without any remainder.

  What is the smallest number that is evenly divisible by all of the numbers from 1 to 20?
  """

  This Pop-11 program was created by Hakan Kjellerstrand (hakank@gmail.com).
  See also my Pop-11 / Poplog page: http://www.hakank.org/poplog/


*/
compile('/home/hakank/Poplib/init.p');


define problem5();
   lvars i;
   lcm_n([%for i from 1 to 20 do i endfor%].explode,20)=>
enddefine;

'problem5()'=>
problem5();