c2n(m):={
  return(asc(m)-65);
  };
  n2c(l):={
  return(char((l)+65));
  };
  decal(n,l):={
  return(irem((l+n),26));
  };
  cesar(n,m):={
  return(n2c(decal(n,c2n(m))));
  };
  sym(n,l):={
  return(irem((n-l),26));
  };
  cesarsym(n,m):={
  return(n2c(sym(n,c2n(m))));
  };
  affine(a,b,l):={
  return(irem((a*l+b),26));
  };
  cesaraffine(a,b,m):={
  return(n2c(affine(a,b,c2n(m))));
  };