#! /bin/sh
nkf -e $1 | table2text | perl -e '
require "load-table.pl";
do loadtable'"'"'load("1");
$maxrow=$loadtable::maxrow;
for($j=1;$j<=6;$j++) {
  for($i=0;$i<=$maxrow;$i++) {
     $a=$loadtable::table{"$i 0"};
     $b=$loadtable::table{"$i $j"};
     $a=~s/\n/ /g;
     $b=~s/\n/ /g;
     print "$a $b\n";
  }
}
' | nkf