code during i learn haskell @ 2013