Main.js

exports.inp1 = function(sub) {
  var count = 0;

  var b = document.querySelector("body");

  b.addEventListener("click", function() {
    sub(count + "");
    count ++ ;
  });

  window.SUB = sub;
}

exports.inp2 = function(sub) {
  setTimeout(function(){sub("def")}, 1000)
}

Main.purs

import Control.Monad.Eff
import Control.Monad.Eff.Console
import Data.List
import FRP.Behavior
import FRP.Event
import FRP.Event.Time
import Prelude

foreign import inp1 :: Event String
foreign import inp2 :: Event String

inp1Beh = step "inp1" inp1
inp2Beh = step "inp2" inp2

addInp a b = a <> b

inpValidBeh = addInp <$> inp1Beh <*> inp2Beh

main = sample_ inpValidBeh inp1 `subscribe` logShow