<>;$c||=grep(/\*/,@a)==y/* //&&s/-/*/,print for@a=<>