sub mod_9 { my( $x ) = @_; return $x % 9 }