Added problem 18 text
Problem 21 Haskell