while ($token = $p->get_token()) {
    if ($token->is_tag()) {
      # do something

    }
  }