DouKaku?

class Moji2zukei
  def initialize(edge)
    @Screen, @x, @y, @edge, @dx, @dy = [[]], 0, 0, edge, 1,0
  end
  
  def r; @dx, @dy = -@dy, @dx; zset; end
  def l; @dx, @dy = @dy, -@dx; zset; end

  def zset
    @edge.each_char {|c|
      @Screen[@y][@x] = c;
      @x += @dx; @y += @dy
      @Screen[@y] ||= []
      (@x = 0; @Screen.map{|l| l.unshift(nil)}) if @x == -1
      (@y = 0; @Screen.unshift([])) if @y == -1
    }
  end

  def scrout
    @Screen.each {|l| puts l.map {|c| c || ' '}.join}
  end
end

Direction = "rrl".split("").map{|x|x.to_sym}*4
m2z = Moji2zukei.new($*[0])
Direction.each {|d| m2z.send d}
m2z.scrout

s = ARGV.shift || "doukaku"

w = s.length * 3 + 1
f = ((" " * w + "\n") * w).split("\n")
x, y, dx, dy = s.length, 0, 0, -1
([:R, :R, :L].collect { |p| [p] + s.split(//) } * 4).flatten.each { |c|
  dx, dy        = -dy, dx           if c == :R
  dx, dy        = dy, -dx           if c == :L
  f[y][x], x, y = c, x + dx, y + dy if c.kind_of? String
}
print f.join("\n"), "\n"

Edge = $*[0]
Direction = [:right, :down, :right, :down, :left, :down, :left, :up, :left, :up, :right, :up]
Screen, @x, @y = [[]], 0, 0

def right; Edge.each_char {|c| Screen[@y][@x] = c; @x += 1} end
def down; Edge.each_char {|c| Screen[@y][@x] = c; @y += 1; Screen[@y] ||= []} end
def left; Edge.each_char {|c| Screen[@y][@x] = c; @x -= 1; (@x = 0; Screen.map{|l| l.unshift(nil)}) if @x == -1} end
def up; Edge.each_char {|c| Screen[@y][@x] = c; @y -= 1; (@y = 0; Screen.unshift([])) if @y == -1} end
Direction.each {|d| send d}
Screen.each {|l| puts l.map {|c| c || ' '}.join}