map$a[31*$_/$']="$_/$'
",/-/..$' for-<>..0;print@a