Saved pastes by asvyazin:
1 2 3 4 5
module Main where import Control.Applicative ((<$>)) import Control.Monad (forever) import Control.Monad.Trans (lift)