#!perl -na
printf"%.2f
",sqrt$F[0]**2+$F[1]**2