/?    310
::
::::  /hoon/grid/lib
  ::  A lib for makeing grids
  ::  because grids
|%
++  grid   (list row)
++  row  (list ?)
++  space  ?
::  Takes a grid of loobeans (booleans but backwards)
::  and turns them in to a tang
++  gen-grid
  |=  size/@
  ^-  grid
  =+  row=(reap size %.y)
  (reap size row)
::
::::
::
++  bool-to-tape
  |=  s/space
  ?:  s
    '# '
  '. '
::
::::
::
++  grid-to-tang
  |=  g/grid         :: Takes a grid
  ^-  tang
  %+  turn  g
  |=  r/row
  :-  %leaf
  ^-  tape
  %+  turn  r
  bool-to-tape
--


:::: result
[
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
 [%leaf p="??????????"]
]
> :go-go &atom 1