Create fp-list-length.hs