-- Try yukicoder -- author: Leonardone main = do n <- readLn putStrLn . unlines $ game n 0 0 game 0 _ _ = replicate 80000 "nothing" game n r h = case item n r xs of Nothing -> "click" : game (n - 1) (r + h + 1) h Just (g, c, cmd) -> cmd : game (n - 1) (r - c + h) (h + g) xs = [(25000, 10000000, "buy grimoire") ,( 2000, 600000, "buy casino") ,( 120, 30000, "buy factory") ,( 10, 2000, "buy lily") ,( 1, 150, "buy hand") ] item _ _ [] = Nothing item n r (x@(g, c, _):xs) | n * g > c && r >= c = Just x | otherwise = item n r xs