perl -le 'my $i = 0;do { $i += 20 } while( $i%46558512 ); print $i' 232792560