while( 1 ) { love_you(); }

package Life; use no strict; 1;

#/usr/bin/perl use strict; use warnings; my $JUCHU = 1; my $NICE_PROJECT = 1; my $BAD_PROJECT = 1; my $FOR_OUR_BOSSES = 50_000; my $our_salary = 200_000; while ( $JUCHU ) { $our_salary += 10_000 if $NICE_PROJECT; $our_salary -= 10_000 if $…

やべ。思いついた。もう既にあるかもしれんけど。 おれ、プログラマーやめて、ポエマーになった方が良い気がした。ポエムハックと名付けました。 よろしく。 Insert into you ( 'your_heart' ) values ( ( 'select sum(love) from me' ) as love ) ;

update me set heart = 'happy' where you = 'with_me' ;