in_sp =: monad define script
if. 0 = y.
    do. 1
  elseif. 0 > y.
    do. 0
  elseif. 1
    do. in_sp y. - 2
end.
)