#!/usr/bin/perl

while ($line = <STDIN>) {
  
}