initialState :: (String -> IO ()) -> St
initialState sendSource =
    St (E.editor Edit1 "edit1" sendSource)
initialState :: (String -> IO ()) -> St
initialState sendSource =
    St (E.editor Edit1 "edit1" sendSource)
initialState sendSource =
    St (E.editor Edit1 "edit1" sendSource)