RosettaCodeData/Task/Loops-Break/Haskell/loops-break-1.hs

import Control.Monad
import System.Random

loopBreak n k = do
  r <- randomRIO (0,n)
  print r
  unless (r==k) $ do
    print =<< randomRIO (0,n)
    loopBreak n k