perl-scripts/JAPH/arrow_japh.pl

!_&print q qJq or
!__&print q quq or
!___&print q qsq or
!____&print q qtq or
!_____&print q q q or
!______&print q qaq or
!_______&print q qnq or
!________&print q qoq or
!_________&print q qtq or
!__________&print q qhq or
!___________&print q qeq or
!____________&print q qrq or
!____________&print q q q or
!____________&print q qPq or
!___________&print q qeq or
!__________&print q qrq or
!_________&print q qlq or
!________&print q q q or
!_______&print q qhq or
!______&print q qaq or
!_____&print q qcq or
!____&print q qkq or
!___&print q qeq or
!__&print q qrq or
!_&print q q,q,$/