#!/usr/bin/perl -w

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

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

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