blob: c7190c8f882f66f3ef114bffea6b48474c5e3bf5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(
(let source (DataSource '"yt" '"plato"))
(let sink (DataSink '"yt" '"plato"))
(let r (Read! world source (Key '('table (String '"Input1"))) (Void) '()))
(let world (Left! r))
(let input (Right! r))
(let input (Take input (Int32 '"3")))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink (Key) (Unordered input) '('('type))))
(let world (Commit! world res_sink))
(return world)
)
|
