L S =INPUT :F()
 R =C =
M R =~(R ? C) R C
 S LEN(1) . C = :S(M)
 OUTPUT =R :(L)
END