@@ -55,6 +55,7 @@ init' s f = Step (\x -> let (s',out) = f x s
5555count : Automaton a Int
5656count = init 0 (\_ c -> c + 1)
5757
58+{-
5859type Queue t = ([t],[t])
5960empty = ([],[])
6061enqueue x (en,de) = (x:en, de)
@@ -75,7 +76,7 @@ average k =
7576 Just (m,ns') -> let sum' = sum + n - m
7677 in ((enqueue n ns', len, sum'), sum' / len)
7778 in init' (empty,0,0) step
78−
79+-}
7980{-- TODO(evancz): move this code to the Form library so people can find it.
8081
8182data DragState = Listen | Ignore | DragFrom (Int,Int)