Output a Dance Dance Revolution arrow chart
GolfScript 132 129

','/{n/{},}%{},.{,}%.$):§;;{§\/(}%]zip{~:¥;{['0'4*]¥*~}%}%{+}*zip 1:¤;{0:^;{.^2=5@48=!¤*if\48-^or:^;' &lt;v^&gt;|'=}%¤):¤;}%zip{+}*4/n*


Online demo here