(import (fmt fmt)
        (thin-xml)
        (srfi s8 receive)
        (only (srfi s1 lists) drop-while))