(with-open-file (stream (nth 1 sb-ext:*posix-argv*))
 (loop for line = (read-line stream nil) do (
  let ((prev) (cur))
   (cond
    ((and (null prev) (null cur))
     (setf prev line)
     )
    ((and prev (null cur))
     (setf cur line)
     )
    ((and prev cur)
     (setf prev cur)
     (setf cur line)
     )
    )
  while line do (
   write(get-indent line)
   )
  )
  )
 )