(define torrent
  (alist->dict `(("announce" . "announce")
		 ("info" .
		  ,(alist->dict `(("files" .
				   (,(alist->dict `(("length" . 11)
						    ("path"   . "top/track.txt")))
				    ,(alist->dict `(("length" . 46)
						    ("path"   . "top/Torrent downloaded from Demonoid.me.txt")))))
					;("files" 
				   ;; (,(alist->dict '(("length" . 11)
				   ;; 		    ("path"   . "path1"))))
				   ;; (,(alist->dict '(("length" . 46)
				   ;; 		    ("path"   . "path1")))))
				  ("name" . "top")
				  ("piece length" . 10)))))))