'ubN
@_ a,b
	@=a+b
	return
_@

gosub @_calc @,2,3

'ubN
@_ a,b
	@=a-b
	return
_@

gosub @_calc @,2,3

'OtubN
@_calc @fn,a,b
	gosub fn a,b
	print @
	return
_@


print "o͌ʂ 5 -1 Ȃnj"


