Bom dia!

Achei confuso o enunciado do problema 1069. Minha lógica está certa, o retorno é sempre "Wrong answer 100%".

<?

$ENTRADA = fgets(STDIN);
$EXPLODE = explode ( '\n', $ENTRADA );
$N = $EXPLODE [ 0 ];

for ( $i = 1; $i <= $N; $i ++ )
{
    $DIAMANTES = 0;
  $ABRE = 0;

    for ( $j = 0; $j < strlen ( $EXPLODE [ $i ] ); $j ++ )
    {
        if ( substr ( $EXPLODE [ $i ], $j, 1 ) == "<" )
            $ABRE ++;

        if ( ( substr ( $EXPLODE [ $i ], $j, 1 ) == ">" ) and ( $ABRE > 0 ) )
        {
            $DIAMANTES ++;
            $ABRE --;
        }
    }

    echo $DIAMANTES . '\n';
}

?>

Alguém pode me ajudar a ver o quê estou errando na entrada dos dados?