sub atan { atan2($_[0],1) };