year = 1969
#.output(#.str(year,">68<"))
> row, 0..3
  > col, 1..3
    cal[col] = mcal(row*3+col,year)
    size = #.size(cal[col],1)
  <
  > i, 1..8
    str = ""
    > col, 1..3
      ? col>1, str += "    "
      line = ""
      ? #.size(cal[col],1)!<i, line = cal[col][i]
      str += #.str(line,"<20<")
    <
    #.output(str)
  <
<
mcal(m,y)=
  months = ["January","February","March","April","May","June","July","August","September","October","November","December"]
  days = [31,28,31,30,31,30,31,31,30,31,30,31]
  ? y%4=0, days[2] = 29
  lines = #.array(0)
  lines[1] = #.str(months[m],">20<")
  lines[2] = "Mo Tu We Th Fr Sa Su"
  n = 3
  > i, 1..#.weekday(1,m,y)-1
    lines[n] += "   "
  <
  > d, 1..days[m]
    wd = #.weekday(d,m,y)
    lines[n] += #.str(d,">2>")
    ? wd<7, lines[n] += " "
    ? wd=7, n += 1
  <
  <= lines
.