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