include_c "string.h";
use "sequence_queries.g";
use "iterator_models.g";

fun main() -> int@ {
  let seq = "mississippi";
  let seq_end = seq + strlen(seq);
  let i = find_n_consecutive(seq, seq_end, 2, 's');
  if (not (*i == 's' and *(i+1) == 's'))
    return -1;

  let i = find_n_consecutive(seq, seq_end, 2, 'p', 
			     fun(char a, char b): a == b);
  if (not (*i == 'p' and *(i+1) == 'p'))
    return -1;

  return 0;
}