f.p6

sub conj(Str $λ, Str $f where 'pol'|'neg'|'par'|'pef'|'pot'|'con'|'vol') {
    given $f {
	when 'pol' {
	    (given $λ {
		when s/ 'う'$ / 'い' / {$_}
		when s/ 'つ'$ / 'ち' / {$_}
		when s/ 'く'$ / 'き' / {$_}
		when s/ 'ぐ'$ / 'ぎ' / {$_}
		when s/ 'ぶ'$ / 'び' / {$_}
		when s/ 'む'$ / 'み' / {$_}
		when s/ 'す'$ / 'し' / {$_}
		when s/ ['い'|'え']'る'$ /  / {$_}
		when s/ 'する'$ / 'し' / {$_}
		when s/ 'くる'$ / 'き' / {$_}
		when s/ 'る'$ / 'り' / {$_}
		}   
	    ) ~ 'ます'
	}
	...
    }
}