solve :: Int -> String
solve 0 = "0"
solve n = "0." ++ take n (cycle "142857")

main :: IO ()
main = putStrLn . solve =<< readLn