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)))