Update 01-totalLength.hs