require "constants.pl";

foreach $num ( 1...5 ) {
    if ($num < 3) {
        print $TRUE,"\n";
    } else {
        print $FALSE,"\n";
    }
}