有没有一种方法可以在Yampa的getLine之外使用reactimate创建一个信号函数

import FRP.Yampa as Yampa
import FRP.Yampa.Utilities
import FRP.Yampa.ReactHandle

-- 定义一个类型别名，表示外部输入的类型
type ExternalInput = String

-- 定义一个外部输入函数，用于获取外部输入
getExternalInput :: IO ExternalInput
getExternalInput = do
    putStrLn "Enter an input: "
    getLine

-- 定义一个信号函数，接受外部输入作为输入信号
mySF :: SF ExternalInput String
mySF = arr (\input -> "You entered: " ++ input)

main :: IO ()
main = do
    -- 创建一个ReactHandle，用于处理外部输入
    reactHandle <- newReactHandle
    
    -- 在外部输入函数上注册ReactHandle
    addReadHandle reactHandle getExternalInput
    
    -- 使用reactimateWithHandle函数运行信号函数
    reactimateWithHandle
        (\_ -> return ())
        (\_ -> return False)
        reactHandle
        mySF