(period-irx (irregex "^\\."))
(redcode-irx (irregex "^;redcode\n"))
(name-start-irx (irregex "^;[ \t]*name "))
(period-irx (irregex "^\\."))
(redcode-irx (irregex "^;redcode\n"))
(name-start-irx (irregex "^;[ \t]*name "))
(author-start-irx (irregex "^;[ \t]*author "))
(author-irx (irregex "^[^\n]*"))
(comment-irx (irregex "^(;[^\n]*)?\n"))
(author-start-irx (irregex "^;[ \t]*author "))
(author-irx (irregex "^[^\n]*"))
(comment-irx (irregex "^(;[^\n]*)?\n"))