Day 1

Complete List.hs
Incomplete Functor.hs