procedure translate_char(var c: char;
                         fromlist, tolist: string);