Update Naive.hs