takeListT n = ListT . liftM (bimapTStep id (takeListT (n - 1))) . stepListT
takeListT n = ListT . liftM (bimapTStep id (takeListT (n - 1))) . stepListT
takeListT n = ListT . liftM (bimapTStep id (takeListT (n - 1))) . stepListT