#!/usr/bin/perl

# Karnaugh
print"\ec";{$_=sprintf"%02d"x3,(localtime)[2,$x=1,0];s*.*$x+=4;$k=$&;for
(4,6..11){($z=qw{2|!0 2&&!0^1 !1||0^2 0^!1|1&2 2&!0^1 1|!2 !2|1|0 !1^0&2
!$q 1|!0}[$k])=~s#\d#vec$_-4,$&,1#eg;printf"\e[%d;%dH%s$/",$_/3,$x+$_%3,
(("|","_","|")[$_%3]x eval$z)||$"}*eg;sleep 1;redo}