#!perl -pl
/ /,$_=int.5+(-$`+sqrt$`*$`*4+$'*$'*3)/3