1: ;;
    2: ;; a short test program to measure port-I/O primitive performance
    3: ;;
    4: 
    5: (use gauche.time)
    6: 
    7: (time (with-input-from-file "/usr/share/dict/words"
    8:         (lambda ()
    9:           (with-output-to-file "/dev/null"
   10:             (lambda ()
   11:               (port-for-each write-byte read-byte))))))
   12: 
   13: