) get "input.ivy"

op run ins =
    ((1 + ins != 0), 0) sel +\ 1, ins

op signal xs =
    cycle = iota rho xs
    i = (20 == cycle mod 40) sel cycle
    +/ xs[i] * i

op render xs =
    px = 2 > abs xs - ((-1 + iota rho xs) mod 40)
    6 40 rho '.#'[1 + px]

signal run input
render run input