#!/usr/bin/perl
@lines = <STDIN>;
foreach $_ (@lines) {
	if (/\#(\d+)/) {;
		$bla = `echo \"obase=16;$1\" | bc`;
		chomp $bla;
		$bla =~ tr/[A-F]/[a-f]/;
		s/\#\d+/#0x$bla/;
		s/; (0x)?$bla$//;
	}
	if (/\#(-\d+)/) {;
		$bla = `echo \"obase=16;$1 + 2^32\" | bc`;
		chomp $bla;
		$bla =~ tr/[A-F]/[a-f]/;
		s/\#-\d+/#0x$bla/;
		s/; (0x)?$bla$//;
	}
	print $_;
}