(define torrent
  (alist->dict `(("announce" . "announce")
		 ("info" .
		  ,(alist->dict `(("files" .
				   (,(alist->dict '(("length" . 11)
						    ("path"   . "path1"))))
				   (,(alist->dict '(("length" . 46)
						    ("path"   . "path1")))))
				  ("name" . "top")
				  ("piece length" . 10)))))))