print join ( '|', map ( $_ || '0', trim( @r )) );