Move random string into Util.hs

sq