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