Haskell smart

Haskell smart by Condition