read
0
+
0
-
0
je
0
1
$ret=
$!=
:!=
explode
0
$scratch
je
$scratch1
$-
$ret<
$ret>
:ret>
write
$>
return
:ret<
write
$<
return
:ret=
write
$=
return
:=
=
:<
<
:>
>
:-
"-
:scratch

:scratch1