{-# LANGUAGE CPP #-}

import qualified Data.ByteString.Char8 as BSC8
import qualified Data.Maybe            as Maybe

#define MOD 1000000007

{-# INLINE modulus #-}
modulus :: (Num a) => a
modulus = MOD

rui :: Integer -> Integer -> Integer -> Integer
rui 1 _ _ = 1
rui _ 0 _ = 1
rui a x p
  | even x    = z * z `mod` p
  | otherwise = a * z * z `mod` p
  where z = rui a (x `div` 2) p

main :: IO ()
main = do
  xs <- BSC8.split '^' <$> BSC8.getLine
  let (a:b:c:_)  = map (fst . Maybe.fromJust . BSC8.readInteger) xs
  let _a = a `mod`modulus
  putStr $ show $ rui (rui _a b modulus) c modulus
  putStr " "
  if _a == 0
    then print 0
    else print  $ rui _a (rui b c (modulus - 1)) modulus