d = 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991 main = readLn >>= putStrLn . dream dream n | n <= 8 = "0." ++ show (n*d) | n <= 81 = (\(d1:ds) -> d1:'.':ds) (show (n*d)) | otherwise = (\(d1:d2:ds) -> d1:d2:'.':ds) (show (n*d))