1TYPEMAP
2SHA *		T_SHA
3PerlIO *	T_IN
4
5INPUT
6T_SHA
7	$var = getSHA(aTHX_ $arg)
8