Variation on a theme

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

Mmmm, ternary conditional operatery goodness ...
Potted at 47.

broquaint