render (Viewport (x,y) _ _) (VLine n (x',y') c) = do
    setFColor c
    printPipes n (x+x') (y+y')
    setFColor WHITE
      where
      printPipes 1 x y = writeAt (x,y) "|"
      printPipes n x y = writeAt (x,y) "|" >> printPipes (n-1) x (y+1)