print map {( $_ =~ /^-?\d+$/ ? $_ * 2 : '-' ),"\n"} @array;