10 const w
w dup * const sz
f" /aoc/test"

create schematic sz allot0
: readschematic ( -- ) schematic file :readall ;
: symbol ( c -- f ) dup 0-9? swap '.' = or not ;

: symbol-adj ( x y -- f ) ;

0 value total 
: symboln ( -- ) ;
: solve readschematic
0 >r
begin to1+ V1
schematic V1 + dup c@ 0-9? if 
\ parse num
symbol-adj
else drop then 
V1 sz = until
schematic sz rfor i c@ 0-9? if then
solve