::  Untyped best-guess printer
::
::::  /hoon/pretty-file/lib
  ::
/?    310
::
=<  pretty-file
|%
++  pretty-noun
  |=  pri=*  ^-  tank
  ?~  pri
    leaf+"~"
  ?@  pri
    leaf+?:(((sane %tas) pri) <`@tas`pri> <pri>)
  =<  rose+[" " ?:(- "~[" "[") "]"]^+
  |-  ^-  {? (list tank)}
  ?~  +.pri
    [& ^$(pri -.pri) ~]
  ?@  +.pri
    [| ^$(pri -.pri) ^$(pri +.pri) ~]
  [+< - +>]:[^$(pri -.pri) $(pri +.pri)]
::
++  vale-cord  |=(a=cord `?`(levy (trip a) |=(b=@ |((gte b 32) =(10 b)))))
::
++  wain-to-tang  |=(a=wain (turn a |=(b=cord leaf+(trip b))))
++  pretty-file
  |=  fyl=*  ^-  tang
  =+  `(unit wain)`?@(fyl `(to-wain:format fyl) ((soft wain) fyl))
  ?^  -  (wain-to-tang u)
  [(pretty-noun fyl)]~
--