#!perl -w
use strict;

print ruler(@ARGV);
sub ruler {
  my ($x,$y) = (' ', '');
  map{$x.=sprintf('%10d',$_/10) if $_%10 == 0 && $_ != 0; $y.=$_%10} (0..$_[0]);
  return "$x\n$y\n";
}