# slash / and backslash slosh \ procedure main() p() p(7) end procedure p(n) write("enter p(n=", n, "):") write("/n=<", /n, ">") # / succeeds if n absent write( "/n " || (if /n then "succeeds, no" else "fails,") || " n given") write("\\n=<", \n, ">") # \\ succeeds if n present write("\\n " || (if \n then "succeeds," else "fails, no") || " n given") write("quit p()\n") end