\mnb150ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\froman\fcharset1 Times New Roman;}}
{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green0\blue255;}
\deflang1031\pard\ri4\plain\f4\fs22\cf0 01.
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}karatsuba:=proc(x,y)
\par \pard\li600\ri1\fi-300\plain\f3\fs22\cf1 local a,b,c,d,n,m,amalc,bmald;
\par begin
\par n:=length(x);
\par m:=length(y);
\par if min(n,m)<=1
\par then return(x*y)
\par end_if;
\par m:=max(n,m);
\par n:=1;
\par while n