;;; -*- Mode:LISP; Package:SI; Cold-Load:T; Base:8; Readtable:ZL -*-

output to streams using tyo
output to NIL
simple operators: ~~, ~A, ~S, ~O, ~D, ~C ~& (~%), ~:@(...~)

(defun format-simple (stream ctl-string &rest args)
  (dotimes
       (idx 0 
	      (1+ idx)
      ((= idx (string-length ctl-string)))
    (when (char= (char ctl-string idx) #\~)
      (format-simple-interpret