Problem:
FizzBuzz

「Fizz Buzz」と言われる数字を使ったゲームがあります。このゲームは複数のプレイヤーで数字を1 から順にひとつずつ数え上げていくもので、各プレイヤーは直前のプレイヤーが発言した次の数字をひとつだけ発言します。その時、3 で割り切れる場合は 「Fizz」, 5 で割り切れる場合は 「Buzz」、両者で割り切れる場合は「FizzBuzz」と数の代わりに発言しなければなりません。例えば、最初の 16 までの発言は以下のようになります。

1, 2, Fizz, 4, Buzz, Fizz, 7, 8, Fizz, Buzz, 11, Fizz, 13, 14, FizzBuzz, 16, ・・・

太郎君は友達と「Fizz Buzz」をして遊ぶことにしました。太郎君たちはルールを次のように決めました。

「間違えた人は脱落する。その次の人は間違えた数の次の数から始める。つまり、1, 2, 3 と発言した場合、3 で間違えたので次は 4 から始めることになる。」

このルールに従ってゲームを行うのですが、ゲームに慣れていないため、間違えたことに気付かないことがあり、公平な判断ができません。そこであなたは太郎君たちがこのゲームを楽しめるように、決められた発言回数が終わった時点で残っていた人を出力するプログラムを作成することにしました。

プレイヤー数、ゲーム中に発言された回数、それぞれの発言を入力とし、入力が終わった時点で残っているプレイヤーの番号を小さい順に出力するプログラムを作成してください。ただし、プレイヤーには 1 から番号が割り振られており、発言順番も 1 番目のプレイヤーから順に行い、一通り発言が終わると、再度 1 番目のプレイヤーから発言することとします。順番の回ってきたプレイヤーが既に脱落している場合は、その次のプレイヤーが発言します。また、このプログラムは、プレイヤーが一人になった時点で、その後の発言を無視しなければなりません。

Input

複数のデータセットの並びが入力として与えられます。入力の終わりはゼロふたつの行で示されます。
各データセットは以下の形式で与えられます。

m n
s1
s2
:
sn

1 行目にプレイヤー数 m (2 ≤ m ≤ 1000) と発言回数 n (1 ≤ n ≤ 10000) が与えられます。

続く n 行に i 番目の発言 s1 が与えられます。 si は整数、Fizz、Buzz、または FizzBuzz を示す文字列（8文字以下）です。

データセットの数は 50 を超えません。

Output

入力データセットごとに、指定された発言回数まで入力されたときに残っているプレイヤーの番号を小さい順に出力します。

Sample Input

5 7
1
2
Fizz
4
Buzz
6
7
3 5
1
2
3
4
5
0 0

Output for the Sample Input

2 3 4 5
1

Solution in Haskell (judge verdict: Accepted)

import Control.Monad

main :: IO ()
main = do
  mn <- getLine
  if mn == "0 0"
    then return ()
    else do
      let [m,n] = map read . words $ mn
      ls <- replicateM n getLine
      putStrLn (solve m ls)
      main

solve :: Int -> [String] -> String
solve m ls = format (update (cycle [1..m]) [1..m] 1 ls)
  where
    format :: [Int] -> String
    format [] = []
    format [x] = show x
    format (x:xs) = (show x) ++ " " ++ (format xs)
    update :: [Int] -> [Int] -> Int -> [String] -> [Int]
    --update order surviveL count responseL
    update _ [x] _ _ = [x]
    update _ surviveL _ [] = surviveL
    update (x:xs) surviveL count (response:responseL)
      | elem x surviveL = update xs (judge count response x surviveL) (count+1) responseL
      | otherwise = update xs surviveL count (response:responseL)
      where
        judge :: Int -> String -> Int -> [Int] -> [Int]
        judge c r x s
          | c `mod` 15 == 0 && r == "FizzBuzz" = s
          | c `mod` 5 == 0 && r == "Buzz" = s
          | c `mod` 3 == 0 && r == "Fizz" = s
          | c `mod` 3 /= 0 && c `mod` 5 /= 0 && show c == r = s
          | otherwise = rem x s
          where
            rem :: Int -> [Int] -> [Int]
            rem _ [] = []
            rem x (y:ys)
              | x == y = ys
              | otherwise = y:(rem x ys)