(>>= toList) . maybeToList  ->  maybe [] toList