% perl -le 'print vec("", 5,1)'
0