let d = 50

pw!(5)
rt!(0.25)

fn y!

& comment for strange Peano variation
& uncomment for standard Peano curve
& fn f! (n) -> fd!(d)

& comment for standard Peano curve
& uncomment for strange Peano variation
fn f! {
  (0) -> fd!(d)
  (n) -> {
    f!(dec(n))
    rt!(0.25)
    f!(dec(n))
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    f!(dec(n))
    f!(dec(n))
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    f!(dec(n))
    f!(dec(n))
  }
}

fn x! {
  (0) -> nil
  (n) -> {
    x!(dec(n))
    f!(dec(n))
    y!(dec(n))
    f!(dec(n))
    x!(dec(n))
    rt!(0.25)
    f!(dec(n))
    rt!(0.25)
    y!(dec(n))
    f!(dec(n))
    x!(dec(n))
    f!(dec(n))
    y!(dec(n))
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    x!(dec(n))
    f!(dec(n))
    y!(dec(n))
    f!(dec(n))
    x!(dec(n))
  }
}

fn y! {
  (0) -> nil
  (n) -> {
    y!(dec(n))
    f!(dec(n))
    x!(dec(n))
    f!(dec(n))
    y!(dec(n))
    lt!(0.25)
    f!(dec(n))
    lt!(0.25)
    x!(dec(n))
    f!(dec(n))
    y!(dec(n))
    f!(dec(n))
    x!(dec(n))
    rt!(0.25)
    f!(dec(n))
    rt!(0.25)
    y!(dec(n))
    f!(dec(n))
    x!(dec(n))
    f!(dec(n))
    y!(dec(n))
  }
}

x!(3)