define square { box ht $1 wid $1 $2 }
square(1, "one" "inch")
square(0.5)
square(0.25, "\s-4tiny\s+4" dashed)