#!/usr/bin/perl -l

use strict;
use warnings;

my $dow = 2;
while ($dow < 8) {
	my $workday = 0 if not $dow == 6 and not $dow == 7;
	$workday = 1 if $dow == 6; ###
	print "$dow $workday";
	$dow++;
}

##</code><code>##

2 0
3 0
4 0
5 0
6 1
7 1