today's Scheme code
(import (rnrs) (mosh file) (shorten) (mosh control) (mosh)) (let1 ht (make-eqv-hashtable) (for-each (^l (cond [(#/address=0x([^\s]+)\snew.*size=(\d+)/ l) => (lambda (m) (hashtable-set! ht (m 1) (m 2)))] [(#/address=0x([^\s]+)\sdelete/ l) => (lambda (k) (hashtable-delete! ht (k 1)))] [else #f]) ) (file->list "/home/taro/Desktop/hige2.txt")) (vector-for-each (lambda (key) (format #t "adress=~a size=~a\n" key (hashtable-ref ht key))) (hashtable-keys ht)))