sub iterate {
  my $code = shift;
  my $back = TRUE;

  for(@_) {
    if(&$code($_) == FALSE) {
      $back = FALSE;
    }
  }

  return $back;
}