- (
- #comment
- (let data (AsList
- (AsStruct '('key (String 'key1)) '('subkey (String '"")) '('value (String 'value1)))
- (AsStruct '('key (String 'key2)) '('subkey (String '"")) '('value (String 'value2)))
- ))
- (let mr_sink (DataSink 'yt (quote plato)))
- (let world (Write! world mr_sink (Key '('table (String 'Output))) data '('('mode 'append))))
- (let world (Commit! world mr_sink))
- (return world)
- )
|