Control.Monad.Cont example

import Control.Monad.Cont

calculateLength :: [a] -> Cont r Int
calculateLength l = return (length l)

main = do
    runCont (calculateLength "123") print