use Math::Trig; print 4*(acos(<>+0)-acos(<>+0))