Update shortest.hs