format(string,char,longeur)

-- ajoute des caracteres en debut de ligne si la longeur de la chaine est inferieur
-- format(chaine,caractere a inserer,longeur de la chaine)
--
-- ex : format("120","0",5)
--      renvera
--      00120

function format(str,ch,num)
  str=tostring(str)
  for left=#str,num do
    str=ch..str
  end
  return str
end