#!/usr/local/bin/perl

while (<>)
	{
	chop;
	@a=split('');
	for (;;)
		{
		$s="$a[0]$a[1]";
		shift @a; shift @a;
		scanf($s,"%x",$out);
		printf "%d\n",$out;
		}
	}

