p6.p6

#!/usr/bin/perl6

sub menu {
	say q:to/END/;
	Simple Calc
	1	to	addition
	2	to	subtraction
	3	to	division
	4	to 	multiplication
	END
	prompt '';
}

sub addition {
	say "Addition";
}

sub subtraction {
	say "Subtraction";
}

sub division {
	say "Division";
}

sub multiplication {
	say "Multiplication";
}


loop {
	given menu() {
		when -1 { last; }
		when  1 { 	addition();			}
		when  2 {	subtraction();		}
		when  3 { 	division();			}
		when  4 {	multiplication();	}
		default { say "sub not available";}
	}
}