main :: IO ()
main = print $ f 200 100
f :: Double -> Double -> Integer
f n m = round $ sum $ zipWith (*) ((2 * pi / 3) : repeat (2 * 5 * pi / 3)) $ takeWhile (> 0) $ iterate (+ (- m)) n

1466