#!/usr/bin/env perl use strict; use warnings; my ($n, $k) = split/ /,<>; chomp $k; my $flag = 0; if ($k == 0) { print join(' ', (1..$n)); print "\n"; exit; } print "2 1"; for (my $i = 2; $i < $n; $i++) { if ($i) { print " "; } if ($i >= $k + 2) { print 1 if $k % 2 == 0; print 2 if $k % 2; } else { print 2 if $i % 2 == 0; print 1 if $i % 2; } } print "\n";