@A=(),s/0.*//,s/[A-Z]/push@A,"@-"+1/ge,print"@A
"for<>