User:J lover

From Rosetta Code
love =: (**)(+,:-)[:%:1:-*:

require 'plot'
'aspect 1;color red' plot (];love) i:1j100

... also likes awk (and sed, UNIX shell, Forth, Tcl, ...) -- and Pure Data!