main = mapM_ (print . round . go) [0..] where go n = 22 - 19.2*cos t + 6*cos (2*t) - 5.3*cos (3*t) + 0.5*cos (5*t) where t = fromInteger (n `mod` 6) / 6 * pi