#!/usr/local/bin/perl

print "data = {";

while (<>)
{
    next if (!/^1/);
    last;
}

while (<>)
{
    next if (!/^1/);
    chop;
    ($reset_l, $rand) = split;
    print ", " if ($Valid);
    print oct($rand); $NumsSeen++;
    $Valid = 1;    
}

print "} \n\n";
print "x = $NumsSeen \n";