#!/usr/bin/perl -w

print "1t\n" if 1;
print "1f\n" if 0;

print "2t\n" if 'moo';
print "2f\n" if '';

print "3t\n" if '1';
print "3f\n" if '0';