function measure_text(s)
 local w=0
 local lines=split(s,"\n")
 for l in all(lines) do
  w=max(w,print(l,0,128))
 end
 local h=#lines*6
 return w,h
end