Befunge-93 (too many characters)
Very unoptimized. My first Befunge program. =]
>~:88+`v6 >11p>:!|v g13$< v $<
000090#8 + > >68*31p v > 1-:!|!:-1g14 31pvvp16<>:41p1- 31g1+g :68*-!#^_ ^
/__ /||\-6 >>1-: |^8 < $<| `g16 $< <
| | |>-*8 ^ ^ p11-2g11-1$ < >31g 11g+:::51g` | 1
|___|/ 8^0 >#-#< v ^< >51p^
< < |`0: p 56 p34:p30:p26:p25:p22:p21:p20:*68<
^ v95:< 6^ *2:* -10< >21g4+21p 11
1 >*- | > > 31g51gg,31g21g-3-!#v_v
1 >$ ^v< | ,+55-g16p15+1:g15 <
|!-*48 <~> ^ ^ p13+1g13 <
> ^ @
