import Ġio . github . ox i def rp . ox ide . core . Event Stream Ċ import Ġio . github . ox i def rp . ox ide . core . hold Ċ import Ġkotlinx . browser . document Ċ Ċ private Ġconst Ġval Ġstream Interval Ms Ġ= Ġ 2 0 0 0 Ċ Ċ fun Ġconsecutive Ints Stream (): ĠEvent Stream < Int > Ġ{ ĊĠĠĠ Ġvar Ġnext Number Ġ= Ġ 0 ĊĊĠĠĠ Ġreturn Ġinterval Stream ( timeout Ġ= Ġstream Interval Ms ). map Ġ{ ĊĠĠĠĠĠĠĠ Ġ/// ĠFIXME : ĠThis Ġescap es Ġthe Ġsemantics ĊĠĠĠĠĠĠĠ Ġ// ĠReplace Ġthis Ġwith Ġaccum Ġwhen Ġloops Ġare Ġimplemented ĊĠĠĠĠĠĠĠ Ġ++ next Number ĊĠĠĠ Ġ} Ċ } Ċ Ċ fun Ġmain () Ġ{ ĊĠĠĠ Ġval Ġinput Cell Ġ= Ġconsecutive Ints Stream () ĊĠĠĠĠĠĠĠ Ġ. hold ( 0 ). pull Ex tern ally () ĊĊĠĠĠ Ġval Ġoutput Ġ= Ġtransform ( ĊĠĠĠĠĠĠĠ Ġinput Cell Ġ= Ġinput Cell , ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġval ĠoutputStream Ġ= Ġoutput . output Stream ĊĊĠĠĠ Ġval Ġwidget Ġ= ĠRow ( ĊĠĠĠĠĠĠĠ Ġgap Ġ= Ġ 1 6 . 0 , ĊĠĠĠĠĠĠĠ Ġchildren Ġ= ĠlistOf ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbuild Cell Meter ( input Cell ), ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbuild Event Stream Log ( output Stream , Ġwidth Ġ= Ġ 4 0 0 . 0 ) ĊĠĠĠĠĠĠĠ Ġ), ĊĠĠĠĠĠĠĠ Ġpadding Ġ= Ġ 4 . 0 , ĊĠĠĠ Ġ) ĊĊĠĠĠ ĠHtml Generic Widget . embed ( ĊĠĠĠĠĠĠĠ Ġparent Ġ= Ġdocument . body !! , ĊĠĠĠĠĠĠĠ Ġwidget Ġ= Ġwidget , ĊĠĠĠ Ġ) Ċ } Ċ