import Data.Char (digitToInt)
import Text.Printf

main = getLine >>= putStrLn . solve . map digitToInt

solve :: [Int] -> String
solve (x:y:z:xs)
  | z <= 4    = printf "%d.%d*10^%d" x y n
  | y <= 8    = printf "%d.%d*10^%d" x (y+1) n
  | x <= 8    = printf "%d.0*10^%d" (x+1) n
  | otherwise = printf "1.0*10^%d" (n+1)
  where n = length xs + 2