+(define (str->feed str)
+ ; TODO validation
+ (define toks (string-split str))
+ (feed
+ [list-ref toks 0]
+ [list-ref toks 1]))
+
+(define (str->feeds str)
+ (map str->feed (str->lines str)))
+
+(define (file->feeds filename)
+ (str->feeds (file->string filename)))
+