proc gcd(word m, n) word:
    word t;
    while n /= 0 do
        t := m;
        m := n;
        n := t % n
    od;
    m
corp

proc lcm(word m, n) word:
    if m=0 or n=0
        then 0
        else m*n / gcd(m,n)
    fi
corp

proc main() void:
    writeln(lcm(12, 18))
corp