$/=' ' x,y,a,b=$<.map &:to_f p [a/x,b/y].min*x+=y