mirror of
https://github.com/janet-lang/janet
synced 2026-10-19 22:12:26 +00:00
8 lines
228 B
Janet
8 lines
228 B
Janet
(def p (parser/new))
|
|
(parser/consume p (slurp ((dyn :args) 1)))
|
|
(while (parser/has-more p)
|
|
(def x (parser/produce p))
|
|
(printf "%m\n%99M\n%1m\n%0M" x x x x)
|
|
(printf "%q\n%99Q\n%1p\n%P" x x x x)
|
|
(protect (printf "%j" x)))
|