[Shirka] Trabb Pardo-Knuth algorithm, simple layout obfuscation.

tpk_obfuscated.shk

-- Trabb Pardo-Knuth algorithm, simple layout obfuscation.
(=> >>) [ -> x x <-  x ] (=> <<) [ -> x ] (=> ><) [ -> x ->  y <- x <- y ] (=>
puts) [ print '\n  print ] (=> if) [ uncons -> iftrue  uncons -> iffalse << ->
cond cond iftrue !? cond not iffalse !? ]  (=> while) [ => cond => op [ cond [
op tail ] !? ] => tail tail ] (=> times) [ >< => op2 ([>> 0 >] while) [ 1 - ->
count op2  <- count ]  << ] (=>  each) [  => op-each length  -> n (n  times) [
uncons op-each ] << ] (=> list/reverse) [  "" >< ([length 0 = not] while) [ ->
src -> dest <-  src uncons -> el -> src  <- dest <- el cons <- src  ] << ] (=>
gets) [ ""  TRUE ([] while) [ getc  >> '\n = not  (if) [ [ cons TRUE  ] [ cons
list/reverse FALSE ]  ] ] ] (=> get-value)  [ gets $parse length 1 =  (if) [ [
uncons ><  << ]  [ abort  ] ] ]  (=> f)  [ -> n  n abs  0.5 ^  n 3 ^  5 *  + ]
"Please enter 11 numbers:" puts [] (11 times) [ get-value cons ] (each) [ f >>
400 > (if) [ [ << "Overflow!" puts ] [ puts ] ] ]