Create factorial.hs