Add Haskell solution to triange