:m + Data.IORef

let l = map Just [1..10]
:p l
head l
r <- newIORef l
:p r
:sp r