(with-open-file (stream "test/spigot.x")
 (do ((line (read-line stream nil)
  (read-line stream nil)))
   ((null line))
   ;; for each line do
   (setq indent 0)
   (loop for c in line
    (case c
     ((#\SPACE #\TAB) (+ 1 indent))
     (otherwise (return))
     )
    (print (indent line) )
    )
   )
 )