#23456789_123456789_123456789_123456789 (39)
    perl -le'print+(H,T)[rand 2]for+1..200'