load(functs);r:1;while(x:?read(?-,?-,~))#~do(sum(r:lcm(r,i),i,1,x),printf(?t,"~d ",r));