function prac(str, x,y)
 local dat={
  ["#"] = {",",  0, 2},
  ["^"] = {"^",  0,-3},
  ["`"] = {"`", -1,-3},
  ["|"] = {",",  1,-6},
  [":"] = {"\"", 0,-3},
  ["~"] = {"~",  0,-5},
  ["_"] = {"-",  0,-4},
  ["★"]={"★",  -2,-6}
 }
 local p=1
 while p <= #str do
  local c=sub(str,p,p)
  if (dat[c]) then
   print(dat[c][1],
    x+dat[c][2], y+dat[c][3]) 
    p+=1
   c=sub(str,p,p)
  end
  print(c,x,y)
  x+=4 p+=1
 end
end

prac("cedille     #c",x,y) y+=h
prac("aigu        |e",x,y) y+=h
prac("circonflexe ^a ^e ^i ^o ^u",x,y) y+=h
prac("grave       `a `e `u",x,y) y+=h
prac("tr|ema       :e :i :u",x,y) y+=h

prac("ephasis     _e _i _u",x,y) y+=h
prac("wiggle      ~e ~i ~u",x,y) y+=h
prac("star        sp★ace",x,y);