sub cmyk2rgb {
    my ($cyan, $magenta, $yellow, $black) = @_;
    my $white = 255 - $black;

    use integer;
    return map $_ > 255 ? 0 : 255 - $_
        => map $_ * $white / 255 + $black
        => ($cyan, $magenta, $yellow);
}