1[/x .runstdin/s{=only 3 1 x}/p{x{1 s}repeat(
)s}>>begin x ne{p{1 s{0 s}for 1 =}for}if p