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))))
}