#! /usr/bin/perl

# STA013 config file -> binary data

binmode STDOUT;

$num = 0;
while (<>) {
	next unless /^([0-9]+) ([0-9]+)/;
	$a[$num] = $1;
	$num++;
	$a[$num] = $2;
	$num++;
}

for ($i = 0; $i < $num; $i++) {
	print pack("c",$a[$i]);
}





