some useless but beautiful stuff in haskell