TYPEMAP
SHA3 *		T_SHA3
PerlIO *	T_IN

INPUT
T_SHA3
	$var = getSHA3($arg)
