print "$SUBJ[rand @SUBJ] $VERB[rand @VERB] $END[rand @END]\n";