Refactor K20 to use ioreg!

I'd actually prefer to use `if` block ant `let (xx,yy) = ` unpacking to this `match` block, it's quite hard to parse it.