tn - (head $! ts)
と正格適用すると回収されるのを期待できますか?