(<@>) :: Behavior (a -> b) -> Event a -> Event b
b <@> e = Event $ fmap <$> b <*> pulse e
(<@>) :: Behavior (a -> b) -> Event a -> Event b
b <@> e = Event $ fmap <$> b <*> pulse e
b <@> e = Event $ fmap <$> b <*> pulse e