#!/usr/bin/perl -
use List'Util shuffle;print+(shuffle<>)[0,1]