#!/usr/bin/perl
$|=1;
while(1){
	read(STDIN, $buf, 1, 0);
	if(($line > 0) && ($line <= 15)){
#	if($line == 13)	{
		print ord($buf);	
		print " ";	
	}
	if($line == 15){
		print "\n";
	}
	$line = 0 if(ord($buf) == 42);
	$line++;
}

# 1
# 2
# 3
# 4 pvdf
# 5 fish/pan
# 6 compass quadrature
# 7 gyro
# 8 compass inphase