26^2;

IiR3Jw==

412/26;

IyIkMSMiIzg=

412 mod 26;

IiNB

(412-22)/26;

IiM6

with(StringTools): Alphabet:=Select(IsPrintable,cat(seq(Char(i),i=1..128)));

UWpwfiEiIyQlJicoKSorLC0uLzAxMjM0NTY3ODk6Ozw9Pj9AQUJDREVGR0hJSktMTU5PUFFSU1RVVldYWVpbXF1eX2BhYmNkZWZnaGlqa2xtbm9wcXJzdHV2d3h5enxmcnxncnxocnxpcjYi

M:=length(Alphabet);

IiMmKg==

SearchText("a",Alphabet);

IiNt

StrToList := proc(s) global Alphabet; local i; [seq(SearchText(s[i],Alphabet)-1, i=1..length(s))]; end: StrToList("hello!");

NigiI3MiI3AiI3dGJSIjeiIiIg==

ListToStr := proc(l) global Alphabet; local i; cat(seq(Alphabet[l[i]+1],i=1..nops(l))); end: ListToStr([72,69]);

USNoZTYi

mylist:= StrToList("Try me, 12345");

Ny8iI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNA

seq( mylist[2*i-1]*M+mylist[2*i], i=1..6);

NigiJUFdIiViJSkiJSVRKCIlUzYiJUw7IiVEPQ==

seq( mylist[3*i-2]*M^2+ mylist[3*i-1]*M+mylist[3*i], i=1..4);

NiYiJ3pyWiIlJVEoIic8JDMiIid2VTs=

mylist;

Ny8iI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNA

op(mylist);

Ni8iI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNA

[op(mylist), "the end"];

NzAiI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNAUSh0aGV+ZW5kNiI=

ListToKgraf := proc( lis, K) local newl, i, j, max, t; max:= nops(lis)/K; newl := []; for i from 1 to max do t:=0; for j from K-1 to 0 by -1 do t := t+ lis[K*i-j]*M^j; od; newl:= [ op(newl), t ]; od; return(newl); end: ListToKgraf( mylist, 3);

NyYiJ3pyWiIlJVEoIic8JDMiIid2VTs=