eul3 x = iter 2 x
  where
    iter p temp
      | d == 1 = p
      | otherwise = iter (nextPrime p) d
      where
        d = divUntil temp p
eul3 x = iter 2 x
  where
    iter p temp
      | d == 1 = p
      | otherwise = iter (nextPrime p) d
      where
        d = divUntil temp p
eul3 x = iter 2 x
  where
    iter p temp
      | d == 1 = p
      | otherwise = iter (nextPrime p) d
      where
        d = divUntil temp p