let () =
  read_line () |> ignore;
  read_line ()
  |> String.to_seq |> List.of_seq |> List.filter (fun x -> x = 'G')
  |> List.length |> print_int; print_newline ();;