$%+=/\(/-/\)/,print$_||$%for<>=~/./g