//,printf@$_,@$_||map@{$'*$_}=$/.$',@1for@1=1..100