#!/usr/bin/perl

use strict;
use warnings;

my $num = 1;
while(<>)
{
    chomp;
    if (/^plan (\d+)..(\d+)/)
    {
        print "plan $1..$2\n";
    }
    elsif (/^ok (\d+)\+(\d+)==(\d+)$/)
    {
        if ($1+$2 == $3)
        {
            print "ok $num\n";
        }
        else
        {
            print "not ok $num\n";
        }
        $num++;
    }
}