(begin

 (define tag
   (lambda (name attrs content)
     (join
      (list "<" (join (list name attrs) " ") ">"
            (if (list? content) (join content "
") content)
            "</" name ">")
      "")))

 (define html (tag "html"))
 (define style (tag "style"))
 (define head (tag "head" ""))
 (define title (tag "title" ""))
 (define body (tag "body"))

 (define h1 (tag "h1"))
 (define h2 (tag "h2"))
 (define h3 (tag "h3"))
 (define h4 (tag "h4"))
 (define h5 (tag "h5"))

 (define div (tag "div"))
 (define p (tag "p"))
 (define span (tag "span"))

 (define a (tag "a"))
 (define img (tag "img"))

 (define link
   (lambda (text url)
     (if (eq (len text) 0)
     (a (join (list "href='" url "'") "") url)
     (a (join (list "href='" url "'") "") text))))


 (define generate_ul
   (lambda (L)

     (define inner
       (lambda (L)
         (cond
          ((! L) ())
          (else
           (concat
            (tag "li" "" (car L))
            (inner (cdr L )))))))

     (tag "ul" "" (inner L))))

 (define row
   (lambda (left right)
     (div "class='row'"
          (list
           (div "class='left'"
                left
                )
           (div "class='right'"
                right
                )
           ))))

 (define proj_lang
   (lambda (proj lang)
        (row
         (p "class='project'"
            proj)
         (p "class='languages'"
            lang))))



 (define generate_cv
   (lambda ()
     (html
      ""
      (list
     (style
      ""
      "
@import url('https://fonts.googleapis.com/css?family=Droid+Sans:400,700');
@import url('https://fonts.googleapis.com/css?family=Open+Sans:400,700');

body {
  font-size: 14px;
  font-family: 'Open Sans', sans-serif;
  color: #111;
  background-color: #fff;
  margin-bottom: 200px;
}

body > * {
  text-align: center;
  max-width: 800px;
margin: 0 auto;
}

a:link, a:visited, a:hover {
  color: #555;
}

a:hover {
  text-decoration: none;
}

h1 {
  letter-spacing: 4px;
  margin-top: 48px;
  margin-bottom: 48px;
}

h2 {
  letter-spacing: 1px;
  margin-top: 36px;
  margin-bottom: 20px;
}

h4 {
  font-size: 16px;
  margin-top: 16px;
  margin-bottom: 8px;
}

h5 {
  font-size: 14px;
  margin-top: 8px;
  margin-bottom: 8px;
}

p {
  margin-top: 0px;
  margin-bottom: 4px;
  letter-spacing: 0.3;
}

span {
  display: block;
}

ul {
  list-style: none;
  margin: 0;
  padding: 0;
}

ul li:after {
  float: left;
  margin-top: 2px;
  margin-right: 4px;
  margin-left: -12px;
  content: '>';
  font-size: 0.8em;
}

ul li {
  margin-left: 12px;
}

.two_columns {
  margin: 0 auto;
}

.two_columns:nth-child(odd) {
  margin-top: 36px;
}

.two_columns > .workplace {
  font-size: 16px;
  font-weight: bold;
}

.row {
  display: flex;
  flex-direction: row;
}

.row > div {
  flex: 1;
  padding: 0px 14px;
}

.row > .left {
  text-align: right;
}

.row > .right {
  text-align: left;
}


.center {
  text-align: left;
}

.center p {
  margin-bottom: 24px;
}

.project, .technologies, .languages {
  font-size: 12px;
}

.hide {
  display: none;
}

.show {
  display: block;
}

.family {
  float: right;
  margin-left: 16px;
  margin-bottom: 16px;
  width: 300px;
  max-width: 50%;
}

.family p {
  text-align: center;
  margin-top: 8px;
  font-size: 12px;
  font-variant: italic;
}

img {
  width: 100%;
}

@media print {
    h1 {page-break-before: always;}
}

"
      )

     (head
      (title "Jona Ekenberg CV"))

      (body
       ""
       (list

        (h1 "" "Personal letter")

        (div
         "class='center'"
         (list
          (div
           "class='family'"
           (list
            (img "src='https://scontent-arn2-1.xx.fbcdn.net/v/t1.0-0/s480x480/17425050_10154612974408720_5580591785276374175_n.jpg?oh=bffacd8c6ac8556db768468073c9220d&oe=596F685E' width='300' alt='Jona, Josh and Cindy'" "")
            (p "" "Jona (me), Josh and Cindy")
            ))

        (p "" "My name is Jona Ekenberg, I'm 26 years old and I like to write code, play games and drink coffee (what a shocker). I also enjoy spending time with my soon-to-be wife and our son. I compete in Guilty Gear. I try to convince people not to be sexistic all the time, and I try to see things from different perspectives. I consider myself a very flexible thinker, which really comes in handy as a programmer. I'm also a quick learner – feel free to test this ability by sending me a task you want done!")

        (p "" "I'm currently developing a game using Rust, and to provide for me and my family I work as a consultant in my own company. When I found your ad for a Rust developer you piqued my interest. Even more so when I read about what you do, the combination of a distributed network and crypto currency. I've actually thought a lot about how to implement some sort of 'peer-to-peer' internet, and how beneficial that should be against not only prying eyes but also the plague that is DDOSing. I also find it awesome that you're open source. Sadly none of the companies I've worked for were open source, but I try to publish most of my personal work.")

        (p "" "As a team member I'm social and always eager to develop my own skills, but also to help other members to improve. I keep the mood high and I make sure that everyone understands the task at hand, be it through text or speech. I've been called 'top 3 nice guy' in the Swedish GG-community.")

        (p "" "As a developer I'm very pragmatic, I try to do what needs to be done as quickly as possible. Then I run it through someone who cares, be it a user, the project manager or the client, just to make sure I'm on the right track. I find that a lot of unnecessary work can be avoided this way, which in turn makes the artifact I'm working on more useful to the user.")

        (p "" "Just to be clear, I don't mind working as an employee, so it's up to you if you prefer to contract me or employ me. I hope we can find a way for us to work together, as I find the work you do not only very interesting, but also extremely important – so that we may keep an open internet.")
        ))


        (h1 "" "CV")


        (h2 "" "Contact Information")

        (div
         "class='two_columns row'"
         (list
          (div "class='left'"
               (list
                (p "" "Jona Ekenberg")
                (p "" "Karleby Rensdal 1")
                (p "" "590 22 Väderstad")
                ))

          (div "class='right'"
               (list
                (p "" "+46 (0)76-78 28 666")
                (p "" "saikyun@gmail.com")
                (p "" "Sweden")
                ))
          ))

        (h2 "" "Development Experience")

        (div
         "class='two_columns row'"
         (list
          (div "class='left workplace'"
               (list
                (p "" "Developer and Owner")
                (p "" "Drakens Famn")
                (p "" "2016 – now")
                ))

          (div "class='right'"
               (list
                (p "" "My current company. We develop web applications, apps and games. We're developing a game engine using OpenGL in Rust, and as a scripting language we use a lisp implementation written in Rust.")
                ))
          ))

        (div
         "class='two_columns'"
         (list
          (row
           (h5 "" "Projects")
           (h5 "" "Languages and technologies"))

        (proj_lang
         (link "Ett spöke och du"
               "https://git.memset.se/Saikyun/spoke")
         "Rust, OpenGL, Blender, Sculptris, GIMP, Git")

        (proj_lang
         (link "JARL - just another rusty lisp"
               "https://git.memset.se/Saikyun/jarl")
         "Rust, Git")

        (proj_lang
         (list "Consultant for "
               (link "Sports Editing Sweden"
                     "http://www.sportsediting.se/"))
         "PHP, Symfony, MySQL, Rest APIs, Git")
        ))

        (div
         "class='two_columns row'"
         (list
          (div "class='left workplace'"
               (list
                (p "" "Developer and Project Manager")
                (p "" (link "eGovlab" "http://www.egovlab.eu"))
                (p "" "2013 – 2016")
                ))

          (div "class='right'"
               (list
                (p "" "Developed web applications for a department at Stockholm University. Our focus was eDemocracy and visualization of data.")
                ))
          ))

        (div
         "class='two_columns'"
         (list
          (row (h5 "" "Projects") (h5 "" "Languages and technologies"))

          (proj_lang (link "Sense4us" "http://sense4us.eu/")
                     "JavaScript, Node.JS, Git")

          (proj_lang (link "Geoskolan" "http://geoskolan.se/")
                     "PHP, Moodle, MySQL")

          (proj_lang (link "iMentors" "http://imentors.eu/")
                     "PHP, MySQL, Winzip (I'm not even kidding)")

          (proj_lang "Other"
                     "Ruby on Rails, C#/C in Unity")

          ))



        (div
         "class='two_columns row'"
         (list
          (div "class='left workplace'"
               (list
                (p "" "Developer")
                (p "" (link "DSV IT" "http://www.dsv.su.se"))
                (p "" "2012 – 2013")
                ))

          (div "class='right'"
               (list
                (p "" "DSV IT develops and maintains the systems in use by DSV (Department of Computer and Systems Sciences at Stockholm University). I worked as a Java-developer, adding features to SciPro, their system for the thesis process.")
                ))
          ))

        (div
         "class='two_columns'"
         (list
          (row (h5 "" "Projects") (h5 "" "Languages and technologies"))

          (proj_lang "SciPro"
                     "Java, Spring, Hibernate")

          ))



        (div
         "class='two_columns row'"
         (list
          (div "class='left workplace'"
               (list
                (p "" "Developer and Owner")
                (p "" "Ekenberg Tech KB")
                (p "" "2006 – 2013")
                ))

          (div "class='right'"
               (list
                (p "" "My first company. We mainly developed websites for companies. In addition to developing I marketed the company and took care of the bookkeeping.")
                ))
          ))


        (div
         "class='two_columns'"
         (list
          (row (h5 "" "Projects") (h5 "" "Languages and technologies"))
          (proj_lang "Twinrix for GSK"
                     "HTML, CSS, JavaScript")

          (proj_lang "Nordic Grooming Habits for Philips"
                     "PHP, MySQL, Ester (home built MVC-framework & CMS), Illustrator")
          (proj_lang "Konstlov(e) - teaching kids how to develop games"
                     "Multimedia Fusion 2")

          (proj_lang "Various websites for smaller companies"
                     "PHP, MySQL, Wordpress, Photoshop")

          ))

        (div
         "class='two_columns row'"
         (list
          (div "class='left workplace'"
               (list
                (p "" "Other")
                ))

          (div "class='right'"
               (list
                (p "" "Volontary work and non-profit stuff. Small games.")
                ))
          ))

        (div
         "class='two_columns'"
         (list
          (row (h5 "" "Projects") (h5 "" "Languages and technologies"))

          (proj_lang
           (list
            (link "Floppy Bards" "https://saikyun.github.io/floppy_bards/")
            "- left/right click")
           "JavaScript")

          (proj_lang
           (link "In browser, multiplayer, anti cheat FIVE IN A ROW" "https://github.com/Saikyun/fiveinarow/")
           "JavaScript, Node.JS, socket.io")

          (proj_lang
           "Course in game programming for kids"
           "JavaScript, Khan Academy's online editor")

          (proj_lang
           "HTML-generator"
           "JARL")

          (proj_lang
           "Various games"
           "JavaScript, Java, C++, C#, socket.io")

          (div
           "class='hide' id='code'"
           (file "webber.jarl"))

          ))

        ))))))

 (generate_cv)
 )