#!/usr/bin/env perl

use strict;
use warnings;

my $jibun = 1;
my $aite  = 2;

my $kekka = (3 + $jibun - $aite) % 3;
print $kekka, "\n";

exit 0;