;@ ins k
;@ outs k
opcode K2Y, 0, kk
    kIn, kOut xin
    kin zkr kIn
    kin signum(kin)
    kout limit kin,0,1
    zkw kout, kOut
endop
