Let's ruin our lives.

2025-12-13T18:27:37Z

This is the same robot, by the way, that spends its time trying to saturate my bandwidth on every machine that I have ever put a public-facing webs…

2025-12-13T18:15:35Z

> [@pete](https://github.com/pete) May I close out this issue as a duplicate captured in point 1 in this new ticket [#10663](https://github.com/pos…

2025-12-13T18:17:15Z

I got a notification because a robot tagged me in a commit.

	This works as-is on both Linux and Plan 9. I wrote it mainly to have something interesting to put on the screen for the
	screenshots I added for the RISC-V Slackware image for the DevTerm ( https://stream.debu.gs/?id=1077 ).

	The sed is kind of ugly but one instruction per line simplifies the awk. The `-E` has to be removed for this code to run
	on Plan 9. The other change needed to run it on Plan 9 is you'd have to change /dev/fd/0 to just /fd/0.

	`,` is unimplemented. Since we're reading the program from stdin, we can't read other input. This could be fixed by
	generating a program and redirecting it to a file, or using a different fd, but that wouldn't be as funny and it is a
	huge pain to do the latter approach in a Bourne-alike.

	(Minor update; the line-wrapping broke the code generator. I have altered it.)

	echo '++++[->++++<]>[-<+++++>>+++++++>++<<]<------.>>+++++.--.+.>.<[-<+>>>+<<]>[--<++>>-<]>---.+++++++++++++.+.<<<.>>>-------.---.<<<--.>.>>+++.-------.++.++[->+<<+>]>++++++.<<.<<.>[-<<->>]<<++++.[>>>--<<<-]>>>+.' \| \
	sed -E 's/(.)/\1\n/g' \| \
	awk 'BEGIN{print "BEGIN{p=0;"}END{print "}"}/\./{print "printf \"%c\",a[p]"}/\+/{print "a[p]++"}/-/{print "a[p]--"}/</{print "p--"}/>/{print "p++"}/\[/{print "while(a[p]){"}/\]/{print "}"}' \| \
	awk -f /dev/fd/0

pete starred LenShustek/readtape