+(define (serve-shell-command command)
+ (let-values (((in-port out-port id) (process command)))
+ (for-each serve-info-record (read-lines in-port))))
+
+(define (serve-expression expression)
+ (for-each serve-info-record
+ (string-split (conc (eval expression)) "\n")))