output (program below)

root@e2a84d64d1f8:/devel/transient# java -jar RunTest.jar
4
2
3
10
***Exception***: Prelude.undefined***Exception***: Prelude.undefined
    in base.ghc.conc.Sync$$LrEQQ9a2
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
***Exception***: Prelude.undefined
    in main.transient.Internals$drop_sSOI
***Exception***: Prelude.undefined
    in base.ghc.IO$sat_s8XVD
    in base.ghc.IO$bracket1
    in base.ghc.Foreign$charIsRepresentable3
    in base.debug.Trace$putTraceMsg1
    in base.debug.Trace$sat_sKWXW
    in base.ghc.IO$unsafeDupablePerformIO
    in base.debug.Trace$trace
***Exception***: Prelude.undefined
    in base.ghc.conc.Sync$$LrEQQ9a2
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
5
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
    in main.transient.Internals$and_then_sUFG
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
6
8
***Exception***: Prelude.undefined
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
***Exception***: Prelude.undefined
    in base.ghc.conc.Sync$$LrEQQ9a2
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
7

    in base.ghc.Err$error
    in base.ghc.Err$undefined
    in base.ghc.conc.Sync$$LrEQQ9a2
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
***Exception***: Prelude.undefined
    in base.ghc.conc.Sync$$LrEQQ9a2
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
9
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
***Exception***: Prelude.undefined
    in base.ghc.conc.Sync$$LrEQQ9a2
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F
***Exception***: Prelude.undefined
    in main.transient.Internals$drop_sSOI
    in main.transient.Internals$ds12_sSPJ
    in main.transient.Internals$sat_sSS2
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$bindIO1
    in base.ghc.Base$thenIO1
    in base.ghc.Base$bindIO1
    in base.ghc.conc.Sync$sat_sER5F

Test.hs

main=  keep' $  do
    r <- choose [1..10]
    liftIO $ print r