fibbo5Component ::
  Int
  -> Input ()
  -> Sim Int
fibbo5Component s (Message () _) = do
  (a,s') <- runExpr fibbo5 s
  traceMsg ("Result: " ++ show a)
  yield s'
fibbo5Component ::
  Int
  -> Input ()
  -> Sim Int
fibbo5Component s (Message () _) = do
  (a,s') <- runExpr fibbo5 s
  traceMsg ("Result: " ++ show a)
  yield s'
fibbo5Component s (Message () _) = do
  (a,s') <- runExpr fibbo5 s
  traceMsg ("Result: " ++ show a)
  yield s'