:x
read
:y
$x
read
$y
# intify
+
$x
-
$x
+
$y
-
$y
# check y's sign
explode
$y
$scratch
je
$scratch1
$-
$yn
$yp
:yp
je
$y
$0
$pr
$incy
:incy
-
$y
+
$x
jmp
$yp
:yn
je
$y
$0
$pr
$decy
:decy
+
$y
-
$x
jmp
$yn
:pr
write
# $x = 0
:0
$x
return
:-
"-
:scratch

:scratch1