character(21)::S read*,S print"(A)",merge("0",trim(S)//"0",trim(S)=="0") end