sub egypt {
	my $f = 2;
	do {return (--$f, egypt($_[0] / $f)) unless $_[0] % $f++} while
	$_[0] > 1;
}

print "$ARGV[0] = " , join(
		' + ',
		pharaoh(hiero(split '/', $ARGV[0]))
	), "\n";

sub hiero {
	my (%nf, %df);
	
	$nf{$_}++ for egypt(shift);
	$df{$_}++ for egypt(shift);
	
	do {($df{$_}, $nf{$_}) = ($df{$_} - $nf{$_}, $nf{$_} - $df{$_})
	if $df{$_} } for keys %nf;
	
	return (eval join('*', 1, (map {($_) x $nf{$_}} keys %nf)),
			eval join('*', 1, (map {($_) x $df{$_}} keys %df)));
}

sub pharaoh {
	return $_[0] == 1 ? "$_[0]/$_[1]" : ( "1/" . (int($_[1] / 
	$_[0]) + 1), pharaoh(hiero($_[0] * (int($_[1] / $_[0]) + 1) - 
	$_[1], $_[1] * (int($_[1] / $_[0]) + 1))))
}