Try GNU APL
  version 1.0
REPL
initializing...
Clear screen
Multi-line editing buffer
)sic ∇ barplot bar # Output a UNICODE bar chart of the integer vector argument "bar" # Exercise from Applied APL Programming by Wilbur R. LePage (1978) # (novice code ahead, including vars not localized) bar ← ,bar len ← 1+↑⍴ bar max ← 1+⌈/bar rotSpec ← ¯1↓,⍉ 2 len ⍴ (¯2×len) ↑ -(1+bar),0 len ← ↑⍴ rotSpec quadPool ← max len ⍴ '⎕' spacPool ← max len ⍴ ' ' spacPool[1;] ← len ⍴ '- ' chart ← quadPool,[1]spacPool ⊖ max ↓[1] rotSpec ⊖ chart ∇ barplot 6 7 8 10 11 13 15 14 12 10 9 7 6 5 3 1 0 ⎕←'trygnuapl source code:' ⋄ ⍎')host "ls"' ⍝ Enter ]keyb to view APL character set. Enter ]help for help.
Submit entire buffer
       
Clear buffer