Least Common Multiple

Example

                                
                                q)lcm[12;80]
240
q)lcm[12;13]
156
q)lcm[12;12]
12
                                
                            

                                
                                gcd:{$[y=0;x;.z.s[y;x mod y]]}
lcm:{div[x*y] gcd[x;y]}