Update runlength.hs