f r o m ' r x ' ; i m p o r t C y c l e f r o m ' @ c y c l e / c o r e ' ; i m p o r t { m a k e D O M D r i v e r , d i v , b u t t o n , p } f r o m ' @ c y c l e / d o m ' ; c o n s t i n t e n t = D O M = > D O M . s e l e c t ( ' b u t t o n ' ) . e v e n t s ( ' c l i c k ' ) ; c o n s t m o d e l = a c t i o n $ = > a c t i o n $ . s c a n ( ( a c c ) = > a c c + 1 , 0 ) ; c o n s t v i e w = d a t a $ = > d a t a $ . m a p ( c o u n t = > d i v ( [ b u t t o n ( [ ' I n c r e m e n t ' ] ) , p ( [ ` c o u n t : $ { c o u n t } ` ] ) ] ) ) ; f u n c t i o n m a i n ( D O M ) { r e t u r n { D O M : v i e w ( m o d e l ( i n t e n t ( D O M ) ) ) } ; }