# perl -w;
use strict;

sub roll1 {
return ((0,1,2,3,4,5,6)[abs(6-abs($_[0]-7))])/36;
}

print roll1($_),$/ for (2..12);