;                   else       -> do (send(qr,bless(fun,b)), true))));

( def run lambda
  ( chave1 chave2 )
  ( progn
    ( def ql
      ( channel chave1 )
    )
    ( def qr
      ( channel chave2 )
    )
    ( while
      ( let
        (
          ( fun
            ( receive ql )
          )
          ( b
            ( receive ql )
          )
          ( __
            ( princ fun b "\n" )
          )
        )
        ( cond
          (
            ( equal a "fim" ) false
          )
          ( true
            ( progn
              ( send qr
                ( eval
                  ( cons fun b )
                )
              ) true
            )
          )
        )
      )
    )
  )
)
;---------------------