import future, strutils


proc nextString: string =
   result = ""
   while not endOfFile stdin:
      let nextChar = readChar stdin
      case nextChar
      of '\r':
         discard
      of "\n"[0], ' ':
         break
      else:
         add result, nextChar


proc nextInt: int =
   return parseInt nextString()


let
   n, m = nextInt()
   l = lc[nextString() | (i <- 0..<m), string]
var
   P = lc[0 | (j <- 0..<n), int]
   j = -1
   flg = 1
   id: int
   k = 1


proc main: void =
   for i in 0..<m:
      j += flg
      j = (j + n) mod n
      id = j + 1

      P[j] += 1
      let li = l[i]
      case li
      of "number":
         discard
      of "drawtwo", "drawfour":
         if i <= m - 2 and li != l[i + 1]:
            j += flg
            P[(j + n) mod n] -= [2, 4][int(li != "drawtwo")] * k
            k = 1
         else:
            k += 1
      of "skip":
         j += flg
      of "reverse":
         flg *= -1

   writeLine stdout, "$# $#".format(id, P[id - 1])


when isMainModule:
   main()