# create a program that reports the type of number specified on the command line using 'given' block

sub MAIN ($number) {
	given $number {
		say "Number type: ", do given $number {
			when  Int { 'integer' }
			when Complex { 'complex' }
			when Rat { 'rat' }
			default { 'unsupported type' }
		}
	}
}