import Text.Printf

main :: IO ()
main = getLine >>= solve

solve :: String -> IO ()
solve s = let (x1:x2:x3:_) = s
              n = read [x1, x2] + (if x3 < '5' then 0 else 1) :: Int
              (a,b) = divMod n 10
              l = length s - 1
          in printf "%d.%d*10^%d\n" (if a == 10 then 1 else a) (if a == 10 then 0 else b) (if a == 10 then l+1 else l)