" <-APL2-------------------- sam258.txt ---------------------------->
" <- Grade Down (z#Wr) pp 150-152 ---------------------------------->
" ------------------------------------------------------------------
dcs#' ','ABCDEFGHIJKLMNOPQRSTUVWXYZ',[.5]'abcdefghijklmnopqrstuvwxyz'
dcs#(dcs,[1]((8,-1YRdcs))R' '),,F10 1R-1+I10
dcs
" ------------------------------------------------------------------
dcsW'avenue'
h[L#dcsWh#'yzommxa']
q[L#dcsWq#5 4R'sent zapdownalsoboa ';]
k[L#dcsWk#5 4R'dealDealdeadDeadDEED';]
" ------------------------------------------------------------------
L#s # `X 'X1' 'X10' 'X2' 'X21' 'X3' 'X9' 'X11' 'x3'
s[L#dcsWs;] " s/b 4 7 2 8 6 5 3 1
" ------------------------------------------------------------------
'abcde'W'dabbed'
q[L#'abcde'Wq#'bleat']
)off