docLRLatex :: Monad m => DocLR0 -> LaTeXT_ m
docLRLatex x =
  do documentclass [a4paper] beamer
     -- raw "\\usepackage[lmargin=1cm]{geometry}"
     -- raw "\\usepackage[]{longtable}"
     usepackage [utf8] inputenc
     usepackage [] pforest
     -- usepackage [] qtree
     -- usepackage [] "tikz-qtree"
     -- usepackage [] tikz
     author "José Romildo Malaquias"
     title "LR Parsing"
     usetheme CambridgeUS
     document $
       do frame maketitle
          frame $
            do frametitle "Construção da tabela LR(0)"
               traceGrammar (grammar x)

t
docLRLatex :: Monad m => DocLR0 -> LaTeXT_ m
docLRLatex x =
  do documentclass [a4paper] beamer
     -- raw "\\usepackage[lmargin=1cm]{geometry}"
     -- raw "\\usepackage[]{longtable}"
     usepackage [utf8] inputenc
     usepackage [] pforest
     -- usepackage [] qtree
     -- usepackage [] "tikz-qtree"
     -- usepackage [] tikz
     author "José Romildo Malaquias"
     title "LR Parsing"
     usetheme CambridgeUS
     document $
       do frame maketitle
          frame $
            do frametitle "Construção da tabela LR(0)"
               traceGrammar (grammar x)
docLRLatex x =
  do documentclass [a4paper] beamer
     -- raw "\\usepackage[lmargin=1cm]{geometry}"
     -- raw "\\usepackage[]{longtable}"
     usepackage [utf8] inputenc
     usepackage [] pforest
     -- usepackage [] qtree
     -- usepackage [] "tikz-qtree"
     -- usepackage [] tikz
     author "José Romildo Malaquias"
     title "LR Parsing"
     usetheme CambridgeUS
     document $
       do frame maketitle
          frame $
            do frametitle "Construção da tabela LR(0)"
               traceGrammar (grammar x)