My turn to show off. Following the bilingual trend set by BooK I did a Perl/Lisp and a Perl/Forth $A++.

It is important not to be the man of only one language. :)

Lisp:

; q    
(setq A (if (boundp 'A) (+ 1 A) 1) ) ; $A++;
[download]

Forth:

( # ) VARIABLE A 0 A ! : $A++; A @ 1+ A ! ; : :-) ; : ); :-) ;
 ); 
 $A++;
[download]