Test.HUnit.Text
data PutText st
putTextToHandle
putTextToShowS
runTestText
showPath
showCounts
runTestTT