#!/usr/bin/perl

while (<>)
{
   last if (/^\s*(\d+)/);
}

do 
{
 if (/^\s*(\d)/)
 { 	
	 print "$1\n";
 }
 else
 {
	 exit();
 }
} while (<>);