( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
( Copyright [c] 2010, Charles Childers                      )
( License: ISC                                              )
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
' files open

: fread! ( ha-f ) swap fread dup rot ! ;

: slurp ( a"- )
  :r fopen dup
  if
    swap repeat 2dup fread! 0 =if 0 swap ! fclose drop ;then 1+ again
  else
    drop 0 swap !
  then ;
: >file ( $h- )
  push repeat @+ dup 0 =if rdrop 2drop ;then
  r fwrite 0 =if rdrop 2drop ;then again ;