gistfile1.txt

func snd(x: Any, y: Any): typeof(y)
ensure out is y
throw None
{
    y
}

func repeat(x: Any, n: Int): Seq
ensure count(out) == n
{
    1..n *> snd(x)
}

func join(ss: Seq, sep: String = ""): String {
    if empty?(ss) { "" } else { reduce(ss, (~ sep ~)) }
}

func repeat-string(s: String, n: Int): String {
    s ~:repeat:~ n |> join()
}

MAIN {
    if count(%argv) != 3 {
        errln([|usage: #{%argv(0)} string count|])
        exit(1)
    }
    outln(repeat-string(%argv(1), atoi(%argv(2))))
}