<pikhq> ` cat >src/pikhqbow.c <<<$\'#include <stdio.h>\\n#include <wchar.h>\\n#include <locale.h>\\n\'\'int main(){wint_t c;int a=0;setlocale(LC_ALL,"C.UTF-8");b:c=fgetwc(stdin);if(c==EOF) return 0;printf("\\x03%d%lc%s",(int[]){4,8,9,11,12,13}[a],c,c==L\'\\\'\',\'\\\'\'?"\\x0f":"",c);if(++a==6)a=0;goto b;}\'

b=bottle a=({no+more+$b\s,1+$b,{2..99}+$b\s}+of+beer) w=on+the+wall
x=(Take+one+down,+pass+it+around Go+to+the+store+and+buy+some+more)
for i in {99..0};{
echo "${a[i]^} $w, ${a[i]}.
${x[!i]}, ${a[i-1]} $w."
}|tr + \