#        1         2         3         4234567
perl -le'print qw(h t)[rand>.5?0:1]for 1..200'