write #<stream>, <text>

	push	<stream>
	push	<text>
	require_text
	0						((index))
	write					<stream> <text> <index> tWRITE -- <stream>
	drop


put #<stream>, <value>

	push	<stream>
	push	<text>
	0						((index))
	put						<stream> <value> <index> tPUT -- <stream>
	drop


read #<stream>, <var>

	push	<stream>
	push	<var>
	require_var
	require_text
	0						((index))
	read					<stream> <var:text> <index> tREAD -- <stream>
	drop


get #<stream>, <var>

	push	<stream>
	push	<var>
	require_var
	0						((index))
	get						<stream> <var> <index> tGET -- <stream>
	drop


getchar #<stream>, <var>

	push	<stream>
	push	<var>
	require_var
	0						((index))
	getchar					<stream> <var> <index> tGETCHAR -- <stream>
	drop