what I am trying to do is check the length of a string and if its not long enough add leading "0" until it is.
(while (< 3 (strlen wns)) (setq wns (strcat "0" wns)))
I'm sure that there's just one little thing that I am missing but I've looked at it to long already.