junk

USING: kernel unicode ;
IN: badcode.weird-case
: A ( x -- x x ) dup upper? "a" "A" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: B ( x -- x x ) dup upper? "b" "B" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: C ( x -- x x ) dup upper? "c" "C" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: D ( x -- x x ) dup upper? "d" "D" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: E ( x -- x x ) dup upper? "e" "E" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: F ( x -- x x ) dup upper? "f" "F" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: G ( x -- x x ) dup upper? "g" "G" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: H ( x -- x x ) dup upper? "h" "H" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: I ( x -- x x ) dup upper? "i" "I" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: J ( x -- x x ) dup upper? "j" "J" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: K ( x -- x x ) dup upper? "k" "K" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: L ( x -- x x ) dup upper? "l" "L" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: M ( x -- x x ) dup upper? "m" "M" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: N ( x -- x x ) dup upper? "n" "N" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: O ( x -- x x ) dup upper? "o" "O" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: P ( x -- x x ) dup upper? "p" "P" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: Q ( x -- x x ) dup upper? "q" "Q" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: R ( x -- x x ) dup upper? "r" "R" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: S ( x -- x x ) dup upper? "s" "S" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: T ( x -- x x ) dup upper? "t" "T" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: U ( x -- x x ) dup upper? "u" "U" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: V ( x -- x x ) dup upper? "v" "V" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: W ( x -- x x ) dup upper? "w" "W" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: X ( x -- x x ) dup upper? "x" "X" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: Y ( x -- x x ) dup upper? "y" "Y" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: Z ( x -- x x ) dup upper? "z" "Z" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: a ( x -- x x ) dup upper? "a" "A" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: b ( x -- x x ) dup upper? "b" "B" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: c ( x -- x x ) dup upper? "c" "C" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: d ( x -- x x ) dup upper? "d" "D" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: e ( x -- x x ) dup upper? "e" "E" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: f ( x -- x x ) dup upper? "f" "F" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: g ( x -- x x ) dup upper? "g" "G" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: h ( x -- x x ) dup upper? "h" "H" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: i ( x -- x x ) dup upper? "i" "I" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: j ( x -- x x ) dup upper? "j" "J" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: k ( x -- x x ) dup upper? "k" "K" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: l ( x -- x x ) dup upper? "l" "L" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: m ( x -- x x ) dup upper? "m" "M" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: n ( x -- x x ) dup upper? "n" "N" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: o ( x -- x x ) dup upper? "o" "O" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: p ( x -- x x ) dup upper? "p" "P" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: q ( x -- x x ) dup upper? "q" "Q" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: r ( x -- x x ) dup upper? "r" "R" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: s ( x -- x x ) dup upper? "s" "S" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: t ( x -- x x ) dup upper? "t" "T" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: u ( x -- x x ) dup upper? "u" "U" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: v ( x -- x x ) dup upper? "v" "V" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: w ( x -- x x ) dup upper? "w" "W" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: x ( x -- x x ) dup upper? "x" "X" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: y ( x -- x x ) dup upper? "y" "Y" ? ;

USING: kernel unicode ;
IN: badcode.weird-case
: z ( x -- x x ) dup upper? "z" "Z" ? ;