##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: October 2016
# Modified: 2016-10-08/13:58-0400
##+
#
# right.icn, fill out a string to length, truncate or pad fill from left
#
procedure main()
    s := "abcdefghij"
    write(":", right(s, 5), ":")
    write(":", right(s, 10), ":")
    write(":", right(s, 20), ":")
    write(":", right(s, 20, "filler"), ":")
end