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