putString :: FieldWidth -> String -> String
putString n s = take n s ++ fill (n - length s) '\NUL'
putString :: FieldWidth -> String -> String
putString n s = take n s ++ fill (n - length s) '\NUL'
putString n s = take n s ++ fill (n - length s) '\NUL'