1 2 3 4 5 6 7 8
:m + Data.IORef let l = map Just [1::Integer .. 10] :p l head l r <- newIORef l :p r :sp r