perl -e "for(1..200) {print ['H', 'T']->[rand(2)];}"