OT: Folk keyboard 748

Since you're sending this on alt.foklore.computers instead of alt.english.literature, I'd say these are BAD examples.

Try your "improvment" on these examples instead:

* APPEND(L1,L2)= * (L1=0 YIELDS L2,1 YIELDS CONS(CAR(L1),APPEND(CDR(L1),L2)) A HED APPEND TNZ APNP1 XCA TRA 1,4 APNP1 SXD AS1,4 TSX $SAVE,4 TXI $END2,,CWR1+2 SAVE 2 ITEMS PDX 0,4 CLA 0,4 STO CWR1 ANA DECM TSX APPEND,4 XCA LXA CWR1,4 PXD 0,4 TSX UNSAVE,4 LXD AS1,4 TRA $CONS DECM SYN $DMASK

Or this:

(SETQ GRAPH '((A1 (A2 A5) 7.5) (A2 (A1 A5 A6 A9 A4) 3.5) (A3 (A2 A6) 7.0) (A4 (A5 A9 A8) 2.0) (A5 (A1 A4 A2) 3.0) (A6 (A3 A9 A7) 6.0) (A7 (A6 A9 A10) 6.5) (A8 (A4 A9) 5.5) (A9 (A8 A4 A2 A5 A7 A10) 8.0) (A10 (A7 A9 K) 1.0))) (DEFUN OCCUR (X N) (AND (NOT (NULL N)) (OR (EQ X (CAR N)) (OCCUR X (CDR N))))) (DEFUN LESS (M N) (COND ((NULL M) NIL) ((OCCUR (CAR M) N) (LESS (CDR M) N)) (T (CONS (CAR M) (LESS (CDR M) N))))) (DEFUN butt2 (X M) (COND ((NULL M) NIL) ((EQ (CAAR M) X) (CDAR M)) (T (butt2 X (CDR M))))) (DEFUN LEGALS (P) (LESS (CAR (butt2 (CAAR P) P)) P)) (DEFUN FIND-NODE (NAME GRAPH) (buttOC NAME GRAPH)) (DEFUN NAME (NODE) (FIRST NODE)) (DEFUN WEIGHT (NODE) (THIRD NODE)) (DEFUN FOLLOWS (NODE) (SECOND NODE)) (DEFUN BEST-PATH (PATH GRAPH SUM) (+ (WEIGHT START-NODE GRAPH) ((FOLLOW START-NODE GRAPH)))) (FOLLOWS (CAR PATH)) (BEST-PATH (CAR GRAPH) GRAPH 0)

Or even this:

INFO = 0 IF( ( .NOT.LSAME( UPLO, 'U' ) ) .AND. $ ( .NOT.LSAME( UPLO, 'L' ) ) ) THEN INFO = -1 ELSE IF( N.LT.0 ) THEN INFO = -2 ELSE IF( KD.LT.0 ) THEN INFO = -3 ELSE IF( LDAB.LT.KD+1 ) THEN INFO = -5 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'DPBTRF', -INFO ) RETURN END IF

-- Our enemies are innovative and resourceful, and so are we. They never stop thinking about new ways to harm our country and our people, and neither do we. -- Georges W. Bush