Two nearly-identical (just swapped print) 36-char long ones.. 'cept these print H & T unlike the above 2

perl -e'map{print rand>.5?H:T}a..gr'
perl -e'print map{rand>.5?H:T}a..gr'