#!/usr/bin/perl
$_='0b1d35022f290d59436b612b034f531747493d676d130507651125713b1f7f';@_=qw/0B 25 00002 00011 02/;while($_ =~ /^(..)((?:..)+)$/){push @$,hex($1);$_=$2;}@$=sort {$a <=> $b} (@$,hex $_);map{$$^=$$;$$++;map{$$*=$$[hex $_];}(split('',$_));print chr $$;}@_;