Push -15
Mark 0
Push 0
Push 0
Readchar
Retrieve
Outchar
Push 1
Add
Dup
Jumpn 0