041 parser grammar in entry tor

// CONTROL for 115_012: the same `[with]std/parser:grammar` declaration and its
// `std/parser:parse` use, with the parse wrapped in a `pub tor` but everything
// left in the ENTRY file. Holds the module constant so the grammar lookup
// `parse` performs is pinned against tor-wrapping alone.
import std/parser
import std/io

[with]std/parser:grammar(csv)
! list l |> match(l)
    | `[0-9]+` n |> lit(",") |> sub(list): r
    | `[0-9]+` n -> n

pub tor run {}
run = std/parser:parse("7,8,9", grammar: csv)
| list { text } |> std/io:print.ln("ok {{ text:s }}")
| parse-error { line, col, expected, found } |> std/io:print.ln("err {{ line:d }}:{{ col:d }} expected {{ expected:s }} found {{ found:s }}")

run()