 class Next extends Event
   constructor: (@value) ->
   isNext: -> true
-  describe: -> "Event.Next <#{@value}>"
+  describe: -> @value
+  inspect: -> "Event.Next<#{@value}>"
 
 class Initial extends Next
   isInitial: -> true


Jnoid.fromList = (list)->
  new EventStream(sendWrapped(list, toEvent))
Jnoid.unit = (args...)->
  Jnoid.fromList(args)


class End extends Event
  constructor: ->
  isEnd: -> true
  describe: -> '<end>'
  inspect: -> "Event.End"

class EventStream
  constructor: (unfold) ->
