//,print"@{[map{$'=~/(-?(2?))$_/*($1.!$2)}h,k,l]} "for<>