          | Comment Text
          | Exit
          deriving(Show, Eq)

tokenizeCode :: Text -> [Text]
tokenizeCode = split $ \c -> c == '。' || c == '、' || c == '「' || c == '」'

parseCode :: Text -> Inst
parseCode str