sub male { my ($var, $continuation) = @_; unify("frank", $var, $continuation); unify("dean", $var, $continuation); };