require 'pp'

N = readline.chomp.to_i

dp = Array.new(N)

=begin
dp[2] = {
  aa: 1,
  ac: 1,
  ag: 1,
  at: 1,
  ca: 1,
  cc: 1,
  cg: 1,
  ct: 1,
  ga: 1,
  gc: 1,
  gg: 1,
  gt: 1,
  ta: 1,
  tc: 1,
  tg: 1,
  tt: 1
}
=end

C = %w(a c g t)
PATTERN = /AGC|GAC|ACG|A.GC|AG.C/

keys = 64.times.each.map do |i|
  c0 = C[ i % 4 ]
  c1 = C[ (i/4) % 4 ]
  c2 = C[ (i/16) % 4 ]
  c0+c1+c2
end.sort

#pp keys

dp[3] = {}
keys.each do |k|
  if k == 'agc' or k == 'gac' or k == 'acg'
    dp[3][k] = 0
  else
    dp[3][k] = 1
  end
end

#pp dp[3], dp[3].values.inject(:+)

B = 1_000_000_007

(3..(N-1)).each do |i|
  dp[i+1] = {}
  keys.each do |k|
    if k == 'agc' or k == 'gac' or k == 'acg'
      dp[i+1][k] = 0
    elsif k =~ /.gc/
      c0 = k[0]
      dp[i+1][k] = keys.select {|k2| k2 =~ /[cgt]#{c0}g/ }.map {|k2| dp[i][k2] }.inject(:+) % B
    elsif k =~ /g.c/
      c1 = k[1]
      dp[i+1][k] = keys.select {|k2| k2 =~ /[cgt]g#{c1}/ }.map {|k2| dp[i][k2] }.inject(:+) % B
    else
      c2 = k[0]+k[1]
      dp[i+1][k] = keys.select {|k2| k2 =~ /.#{c2}/}.map {|k2| dp[i][k2] }.inject(:+) % B
    end
  end
end

puts dp[N].values.inject(:+) % B
