getTextMappings :: Text -> [Statement] -> IO (Text,[Mapping])
getTextMappings name stmts = do
  forejs <- getForeJs name
  let (text,mappings) = renderStatements (length (T.lines forejs) + 1) stmts
  return (forejs <> text <> run,mappings)
getTextMappings :: Text -> [Statement] -> IO (Text,[Mapping])
getTextMappings name stmts = do
  forejs <- getForeJs name
  let (text,mappings) = renderStatements (length (T.lines forejs) + 1) stmts
  return (forejs <> text <> run,mappings)
getTextMappings name stmts = do
  forejs <- getForeJs name
  let (text,mappings) = renderStatements (length (T.lines forejs) + 1) stmts
  return (forejs <> text <> run,mappings)