vardef LATEX primary s =
  write "verbatimtex" to "mptextmp.mp";
  write "%&latex" to "mptextmp.mp";
  write "\documentclass[12pt]{article}" to "mptextmp.mp";
  write "\usepackage[utf8]{inputenc}" to "mptextmp.mp";
  write "\usepackage[T1]{fontenc}" to "mptextmp.mp";
  write "\usepackage{fourier,pifont}" to "mptextmp.mp";
  write "\usepackage{fancybox}" to "mptextmp.mp";
  write "\usepackage[frenchb]{babel}" to "mptextmp.mp";
  write "\usepackage[autolanguage]{numprint}" to "mptextmp.mp";
  write "\usepackage{amssymb}" to "mptextmp.mp";
  write "\usepackage{xcolor}" to "mptextmp.mp";
  write "\definecolor{LightGreen}{rgb}{0.625,1,0.250}" to "mptextmp.mp";
  write "\definecolor{DarkGreen}{rgb}{0,0.75,0}" to "mptextmp.mp";
  write "\definecolor{dDarkGreen}{rgb}{0,0.5,0}" to "mptextmp.mp";
  write "\definecolor{LightBlue}{rgb}{0.75,0.875,1}" to "mptextmp.mp";
  write "\definecolor{DarkBlue}{rgb}{0.5,0.75,1}" to "mptextmp.mp";
  write "\definecolor{dDarkBlue}{rgb}{0,0.375,0.75}" to "mptextmp.mp";
  write "\definecolor{LightViolet}{rgb}{0.875,0.75,1}" to "mptextmp.mp";
  write "\definecolor{LightPurple}{rgb}{0.75,0.5,1}" to "mptextmp.mp";
  write "\definecolor{DarkPurple}{rgb}{0.5,0.375,1}" to "mptextmp.mp";
  write "\definecolor{DdarkPurple}{rgb}{0.312,0.125,0.5}" to "mptextmp.mp";
  write "\definecolor{LightOrange}{rgb}{1,0.625,0.25}" to "mptextmp.mp";
  write "\definecolor{DarkOrange}{rgb}{0.875,0.438,0}" to "mptextmp.mp";
  write "\definecolor{dDarkOrange}{rgb}{0.750,0.375,0}" to "mptextmp.mp";
  write "\definecolor{DarkMarron}{rgb}{0.625,0.312,0}" to "mptextmp.mp";
  write "\definecolor{LightPink}{rgb}{0.875,0.125,0.875}" to "mptextmp.mp";
  write "\newcommand\opSon[1]{\colorbox{LightPink}{\bfseries\textcolor{white}{#1}}}" to "mptextmp.mp";
  write "\newcommand\opSimple[1]{\colorbox{white}{\bfseries\textcolor{black}{#1}}}" to "mptextmp.mp";
  write "\newcommand\opMouv[1]{\colorbox{dDarkBlue}{\bfseries\textcolor{white}{#1}}}" to "mptextmp.mp";
  write "\newcommand\opAp[1]{\colorbox{DarkPurple}{\bfseries\textcolor{white}{#1 \textcolor{black}{\tiny$\blacktriangledown$}}}}" to "mptextmp.mp";
  write "\newcommand\opBloc[1]{\colorbox{DdarkPurple}{\bfseries\textcolor{white}{#1}}}" to "mptextmp.mp";
  write "\newcommand\opOp[1]{\colorbox{DarkGreen}{\bfseries\textcolor{white}{#1}}}" to "mptextmp.mp";
    write "\newcommand\opSousOp[1]{\colorbox{dDarkGreen}{#1}}" to "mptextmp.mp";
  write "\newcommand\opCap[1]{\colorbox{DarkBlue}{\bfseries\textcolor{white}{\bfseries #1}}}" to "mptextmp.mp";
  write "\newcommand\opCapCap[1]{\colorbox{LightBlue}{#1 \tiny\textcolor{black}{$\blacktriangledown$}}}" to "mptextmp.mp";
  write "\newcommand\opVar[1]{\colorbox{LightOrange}{\bfseries\textcolor{white}{#1}}}" to "mptextmp.mp";
  write "\newcommand\opList[1]{\colorbox{DarkOrange}{\bfseries\textcolor{white}{#1}}}" to "mptextmp.mp";
  write "\newcommand\opSousList[1]{\colorbox{dDarkOrange}{#1 \tiny\textcolor{black}{$\blacktriangledown$}}}" to "mptextmp.mp";
  write "\usepackage{amsmath}" to "mptextmp.mp";
  write "\usepackage{mathrsfs}" to "mptextmp.mp";
  write "\usepackage{ifsym}" to "mptextmp.mp";
  write "\usepackage{bm}" to "mptextmp.mp";
  write "\usepackage{mflogo}" to "mptextmp.mp";
  write "\usepackage{graphicx}" to "mptextmp.mp";
  write "\graphicspath{{/home/cp/texmf/metapost/Scratch/}}" to "mptextmp.mp";
  write "\begin{document}" to "mptextmp.mp";
  write "etex" to "mptextmp.mp";
  write "btex "&s&" etex" to "mptextmp.mp";
  write EOF to "mptextmp.mp";
  scantokens "input mptextmp"
enddef;