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