(define (bencode-decode-dictionary in)
  (if (char=? #\e (peek-char in))
      '(dictionary)
      (let* ((key (bencode-decode in))
	     (val (bencode-decode in)))
	(append (bencode-decode-dictionary in)
		(list (cons key val))))))