import Data.List
 
zagadka :: (Integral a) => a -> Maybe a
zagadka n = if n < 10 then return n else solve n 9
  where divides k x = x`mod`k == 0
        solve m 1 = if m == 1 then return 0 else Nothing
        solve m k = do
          let (xs, m2:_) = span (k`divides`) (iterate (`div`k) m)
          acc <- solve m2 (k-1)
          return (foldl (\acc _ -> 10*acc + k) acc xs)
 
main = interact (concatMap (message . zagadka . read) . words)
  where message (Just x) = show x ++ "\n"
        message Nothing  = "Rozwiazanie nie istnieje\n"
 

aW1wb3J0IERhdGEuTGlzdAoKemFnYWRrYSA6OiAoSW50ZWdyYWwgYSkgPT4gYSAtPiBNYXliZSBhCnphZ2Fka2EgbiA9IGlmIG4gPCAxMCB0aGVuIHJldHVybiBuIGVsc2Ugc29sdmUgbiA5CiAgd2hlcmUgZGl2aWRlcyBrIHggPSB4YG1vZGBrID09IDAKICAgICAgICBzb2x2ZSBtIDEgPSBpZiBtID09IDEgdGhlbiByZXR1cm4gMCBlbHNlIE5vdGhpbmcKICAgICAgICBzb2x2ZSBtIGsgPSBkbwogICAgICAgICAgbGV0ICh4cywgbTI6XykgPSBzcGFuIChrYGRpdmlkZXNgKSAoaXRlcmF0ZSAoYGRpdmBrKSBtKQogICAgICAgICAgYWNjIDwtIHNvbHZlIG0yIChrLTEpCiAgICAgICAgICByZXR1cm4gKGZvbGRsIChcYWNjIF8gLT4gMTAqYWNjICsgaykgYWNjIHhzKQoKbWFpbiA9IGludGVyYWN0IChjb25jYXRNYXAgKG1lc3NhZ2UgLiB6YWdhZGthIC4gcmVhZCkgLiB3b3JkcykKICB3aGVyZSBtZXNzYWdlIChKdXN0IHgpID0gc2hvdyB4ICsrICJcbiIKICAgICAgICBtZXNzYWdlIE5vdGhpbmcgID0gIlJvendpYXphbmllIG5pZSBpc3RuaWVqZVxuIgo=

MQoyCjkKMTAKMTEKNzIKNjUzMzE4NjIzNTAwMDcwOTA2MDk2NjkwMjY3MTU4MDU3ODIwNTM3MTQzNzEwNDcyOTU0ODcxNTQzMDcxOTY2MzY5NDk3MTQxNDc3Mzc2

1
2
9
10
11
72
653318623500070906096690267158057820537143710472954871543071966369497141477376