#!perl -nl / /;print$_=$`/2-sqrt$`*$`/4-$',$",$`-$_