@(collect)
--- scanner @s ---
@  (collect :vars (p))
@x,@y,@z
@  (bind p @(vec (toint x) (toint y) (toint z)))
@  (until)

@  (end)
@(end)