to listprint :l [:pre " ]
 ifelse listp :l [
         ifelse apply "or map "listp :l [
                 print word :pre "\[
                 foreach :l [(listprint ? word :pre "\ )]
                 print word :pre "\]
         ] [
                 type :pre
                 show :l
         ]
 ] [
         type :pre
         show :l
 ]
 end