func hash-native { mega | with native ;
	native gettype "str" eq if {
		native str-to-bytes hash-bytes
		2 stop
	}
	native gettype "mega" eq if {
		native
		2 stop
	}
	native gettype "long" eq if {
		native _mega
		2 stop
	}
	native gettype "int" eq if {
		native _mega
		2 stop
	}
}

func hash-bytes { mega | with bytes ;
	0 bytes:get _mega
	1 bytes:get _mega 256 * 
}