alias K2 {
  var %t $1 / 100 
  if (%t <= 66 ) { 
    var %R 255,  %G %t,%G $calc(99.4708025861 * $log(%G) - 161.1195681661)
    if ( %t <= 19) { var %B 0  } 
    else { var %B %t - 10, %B $calc(138.5177312231 * $log(%B)), %B $calc(%B - 305.0447927307)  }
  } 
  else {  var %R %t - 60,%R $clalc(329.698727446 * %R ^ -0.1332047592)
    var %G %t - 60, %G $calc(288.1221695283 * %G ^ -0.0755148492),%B 255  }
  ;RBG
  echo 4 R : $round(%R,0)
  echo 9 G : $round(%G,0)
  echo 12 B : $round(%B,0)
  echo ALFA: 50%

  ;°C Derece
  echo  $+($chr(176),C) : $calc($1 - 273.15)
  ;F° Fahrenhayt
  var %dC $calc($1 - 273.15)
  echo $+($chr(176),F) :  $calc(%dC * 1.8 + 32 ) 
  ;HEX
  echo HEX : $+($chr(35),$base($round(%R,0),10,16,2),$base($round(%G,0),10,16,2),$base($round(%B,0),10,16,2))

  ;CMYK
  ;K = 1-max(R', G', B'),C = (1-R'-K) / (1-K),M = (1-G'-K) / (1-K),Y = (1-B'-K) / (1-K)
  var %R' $calc($round(%R,0) / 255),%G' $calc($round(%G,0) / 255),%B' $calc($round(%B,0) / 255) 
  var %K  $calc(1 - $gettok($sorttok((%R', %G', %B'),32,nr),1,32))
  var %C  $calc(1 - %R' - %K) / $calc(1- %K)
  var %M $calc(1 - %G' - %K),%M  $calc(%mm / 1 - %K)
  var %Y $calc(1 -%B' - %K ) / $calc(1 - %K)

  echo 11  C : $round(%C,4)
  echo 13  M : $round(%M,4)
  echo 8 Y : $round(%Y,4) 
  echo 1  K : $round(%K,4) 
}