Create classTest-2013.hs

List comprehension and recursion