# I'm getting an Error: unhandled exception: over or underflow when trying to get
# lcd
proc lcm(num:seq[int]):int64 =
  var mult:seq[int64] = num.map(proc(x:int):int64 = x.int64)
  var idx,divi:int
  while true:
    divi = (mult.max/mult.min).int - 1
    if mult.max != mult.min and divi > 2:
      idx=mult.find(mult.min)
      mult[idx] += (mult.mindivi)
    elif mult.max != mult.min:
      idx = mult.find(mult.min)
      mult[idx] += mult.min
    else:
      return mult[0]