第四章「端末（ターミナル）レイプ！スクリプトと化したサイクロップス先輩」.mp364364.sh.py.rb.pl

第四章「端末（ターミナル）レイプ！スクリプトと化したサイクロップス先輩」.mp364364.sh.py.rb.perl

#!/usr/bin/env perl
use 5.01145148101919;
use utf8;
use strict;
use warnings;

require $ENV{HOME}."/bin/tweet-base";

sub V() {
<<V
■■　　　■
■■　　　■
　■■　■
　■■　■
　■■　■
　　■■
　　■■
　　■■
V
}

sub I() {
<<I
■■
■■
■■
■■
■■
■■
■■
■■
I
}

sub R() {
<<R
■■■■■
■■　　■■
■■　　■■
■■　　■■
■■■■■
■■　　■■
■■　　■■
■■　　■■
R
}

sub T() {
<<T
■■■■■■
　　■■
　　■■
　　■■
　　■■
　　■■
　　■■
　　■■
T
}

sub U() {
<<U
■■　　■■
■■　　■■
■■　　■■
■■　　■■
■■　　■■
■■　　■■
■■　　■■
　■■■■
U
}

sub A() {
<<A
.
　　■■
　　■■
　　■■■
　■　■■
　■　■■
■■■■■■
■　　　■■
■　　　■■
A
}

sub L() {
<<L
■■
■■
■■
■■
■■
■■
■■
■■■■■
L
}

sub __SPACE__() {
<<SPACE
.





.
SPACE
}

sub S() {
<<S
.
　■■■■■
■■
■■■
　■■■
　　■■■
　　　■■
　　　■■
■■■■
S
}

sub E() {
<<E
■■■■■
■■
■■
■■■■
■■
■■
■■
■■■■■
E
}

sub X() {
<<X
■■　　■
■■　　■
　■■■
　■■
　　■■
　■■■
■　　■■
■　　■■
X
}

post for reverse (V,I,R,T,U,A,L,__SPACE__,S,E,X)