atan2 +base

atan2 :: RealFloat a => a -> a -> a
base Prelude