;; write in a fine file                                                                                                 
  (def wiff (file contents)
       (w/outfile p file (each b contents (writec b p))))