I'll write something like this as a part of a greater project I'm working on ATM.