#!/usr/bin/perl --
use strict;
next unless s->{ID} =~ /\d\d+/;
print 1;
print "a - b -Q";